MAINDEC-11-D52A 
RFll DISK DATA 
(DATA PORTION) 



PALXll 



V003 29-OCT-.70 



0111 PAGE 1 



(?000 

<^ 0002 
0004 

■■0006 

0010 
0012 
001^ 
0016 

0020 
0022 
0021 
0026 
0030 
0032 
0034 
0036 
0040 
0042 
0044 
0':'0046 
0'50050 
0V10052 
0054 
0;'0056 
0-^0060 
0>"'0062 



000.'^02 
W00^04 

00001l(.' 

0k.1i')2l<:' 
000')4!t-'' 
y0:n0C' 
;ii0020!'^ 
i-i H 4 tf 
tJ01^'0C' 
k302.^0''^ 
L104i-0i^ 
k;i1 ji^0vi 

;?40000 
J.00;. 0^* 



104403 
104407 
.104405 

k0U .''01'' 

000100 



t:0ki 502 
P 
i;i00W06 
i:i0(Jt'i0y 
0K)"-i2 

000il00 

000'''l6 

y 00 I-'. 00 

00i^-'22 
fe'0J000 
2!00(»26 

S/,0000W 

tj00W32 
0001^00 
000036 
000000 
ki0wd42 
000000 
tj00046 
1^000015 

000 52 

000^^00 

000;'56 

t:!00{;00 

000 .162 
000000 



BIT0-3, 

BIT182 

BIT2»4 

8IT3"10 

BIT4a20 

BIT5S40 

BIT6SJ.00 

BIT7a200 

BIT8a400 

BIT9il000 

BIT10»2000 

BIT11S4000 

BITl2ai0000 

BITl3a20000 

BIT14B40000 

BITl5al00000 

I 

J 

I 

WRITEsTRAP*3 

WRCHECKsTRAP*? 

READ«TRaP*5 



,a0 

.REPT 
, *2 

HALT 

,ENDR 

1*2 

HALT 

.♦2 

HALT 

,*2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

.*? 

HALT 

.♦2 

HALT 

• ♦2 

HALT 

.♦2 

HALT 

.*2 

HALT 

, *2 

HALT 

,*2 

HALT 



100 



PALXll 



V003 29-OCT-70 



0IH PACE 



0''0064 


000066 


.♦2 

HALT 


0! 0066 


00000e! 


000070 


000072 


• *2 


000072 


000000 


HALT 


000074 


000076 


■ *2 
HALT 


0.'0076 


000000 


01^0100 


000102 


,*2 


000102 


000000 


HALT 


0'^»0104 


000106 


,*2 


0'-0106 


000000 


HALT 


0110110 


000112 


.*2 


a^'01l2 


000000 


HALT 


0W0114 


000116 


.♦2 


0i0116 


000000 


HALT 


0t'0l20 


ki)00122 


.*2 


0'^^^0122 


000000 


HALT 


0^-0124 


000126 


.*2 


0^^0126 


000000 


HALT 


'0130 


000132 


.*2 


0/'0l32 


000000 


HALT 


10134 


000136 


.♦2 


'0136 


000000 


HALT 


0f^0l40 


000142 


.♦2 


0. 0142 


000000 


HALT 


0.'0144 


000146 


,*2 


'0146 


000000 


HALT 


0150 


000152 


.♦2 

HALT 


0152 


00000fJ 


0154 


000156 


,♦2 


3 '0156 


000000 


HALT 


0160 


000162 


.♦2 


0' 0162 


000l.'00 


HALT 


0164 


000166 


.*2 


'0166 


000'500 


HALT 


-0170 


000172 


.*2 


0..'0172 


00000B 


HALT 


'0174 


000176 


.*2 


0^''0176 


000000 


HALT 


'0200 


000202 


.♦2 


'0202 


000000 


HALT 


i0204 


000206 


.♦2 


0206 


000000 


HALT 


i0210 


000212 


.*2 


0212 


00000W 


HALT 


'0214 


000216 


.*2 


0216 


000000 


HALT 


'0220 


000222 


.♦2 


'0222 


000001^ 


HALT 


0-0224 


000226 


.*2 


0226 


000V100 


HALT 


a- 0230 


000232 


.♦2 


0232 


1(5001100 


HALT 


'A 0234 


000236 


.♦2 


0236 


000.100 


HALT 




000242 


.♦2 
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0"0242 
10244 
0k''0246 

0"0250 
000252 
0i?l02i54 
0'':'0256 
0-^0260 
0t'i0262 
000264 
0^0266 
0B0270 
000272 
000274 
000276 

0-0300 
000302 
000304 
3^:0306 

0'?0310 
01^0312 
01^0314 
0-0316 

'0320 
0;0322 
05^0324 
'0326 
0^10330 
0332 
0^0334 
0v 0336 
'0340 
0342 
0344 
0346 

0350 
0352 



0-'0354 
0356 

0''0360 
0''0362 
0364 
0366 
0370 
10372 
0^ 0374 
0.i0376 



0020 
0022 



0030 
0'0032 
0034 
'0036 



000000 

000246 
000000 

000252 

000000 

000256 
000000 
000262 
000000 
000266 
000000 

000272 
000000 
000276 
000000 
000302 

000000 

000306 
000000 
000312 

000000 

000316 
000000 
000322 

000000 

000326 

000000 

000332 

000W00 
000336 
00000P 

000342 

000000 
000346 

000:300 

000352 

000000 

000356 

000000 

000362 

U00366 

000-:)0B 
000372 
000000 
000376 

(J00'':00 

000 ''20 
010626 
00d/00 
000^30 
012160 
000340 
006146 
k)00340 



HALT 

.♦2 

HALT 

• ♦2 

HALT 

.*2 

HALT 

,♦2 

HALT 

.♦2 

HALT 

,*2 

HALT 

.♦2 

HALT 

.*2 

HALT 

, *2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.♦2 

HALT 

,♦2 

HALT 

.*2 

HALT 

.♦2 

HALT 

,♦2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.♦2 

HALT 

.*2 

HALT 

.*2 

HALT 

.♦2 

HALT 

,=20 

XWAIT 



,"30 

EMTRP 
340 
DISK 
340 



IBACKGROUNO TEST VECTOR 

»TTY VECTOR 

JDISK CALLING VECTOR 



PAlXII V0k33 



29-OCT-70 



0tll 
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000200 
0200 (40W167 0i'i07lW 
0! 0204 00624^5 
3 0206 000200 



00030^' 



• ■200 

JMP START 

OK I NT 

200 

ISTATIC ROUTINES 
,■300 



;DISK INTERRUPT VECTOR 
jOISK PRIORITY 



PALXll V003 29-OCT-70 



0111 PA6E 2 



0"0600 000167 0«1156 



, a600 

JMP ADT2 



0604 000167 0.^2076 



JMP A0T3 



0;'*06l0 000167 0^^2446 



0'^0614 000167 0M3070 



'0620 0015167 0'.)3274 



0624 000167 0/^3640 



0-0630 000167 0'>;4600 



JMP A0T4 

JMP ADT5 

JMP SPIRAL 

JMP XSPIRAU 

JMP RANEX 



0634 000167 0vl7466 



JMP EXTMEN 



0v,'0640 000167 010062 



0^0644 00k''167 010322 



0650 0015167 010650 



JMP PFTl 

JMP prT2 

{•••MAINTENANCE ROUTIN|S»«« 
I 

JMP SEUWC 



0^0654 000167 010654 



JMP SELCMA 



0'r)0660 000167 010660 



JMP SEUDAR 



0'!0664 00!<5167 010664 



JMP SEtDAE 



CHECK THAT WHEN A 
WORD IS WRITTEN IT 
DOES NOT ALTER ADJACENT 
WORDS 



WRITE EACH WORD ADDR ON ITSEL^ AND 
READ lACK TO COMPARE 



TRACK SELECTION TEST 
LOOK AHEAD TEST 
SPIRAL TEST 
SPIRAL TEST EXTENSION 



RANDOM ADDRESS, DATA AND 
WORD COUNT TEST 



WRITE/WRITE CHECK DISK WITH 
EXTENDED MEMORY 



DISK WRITE POWER FAIL TEST 

DISK WRITE CHECK POWER FAIL TEST 



LOAD WORD COUNT REG, 
WITH SWITCH REGISTER 



LOAD CURRENT MEMORY ADDR 
REG, WITH SWITCH REGISTER 



LOAD DISK ADDR, REGISTER 
WITH SWITCH REGISTER 

LOAD DISK ADDR, EXT, 



PALXII V003 29-OCT-70 

000670 000167 010670 

010674 000167 010674 

0;6'0700 000167 010702 

0-0704 000167 010746 



001 'A 00 



0111 PACE 2-1 

IWITH SWITCH REGISTER 

I 

I 

JMP SELDBR IIOAD DATA BUFFER REGISTER 

IWITH SWITCH REGISTER 
I 
I 

JMP MOVLK IMOVE CONTENTS OF LOOK 

lAHEAO REGISTER INTO QATA LIGHTS 
I 



JMP SELDCS JLOAD DISK CONTROL REGISTER 

IWITH SWITCH REGISTER 
I 
I 

JMP STAMP lENABLE READ AMPLIFIERS 

ITO TRACK SELECTED 
IFROM SWITCH REGISTER 
1 
I 

I 
I 
I 
I 
J 
I 

iRFii Data test 

IVECTORS USED IN PROGRAM 

|ii LOC 204 DISK INTERRUPT 

l#2 LOC 30 EMT (TELETYPE OUTPUT) 

|#3 LOC 34 TRAP (DISK HANDLERS) 

}#4 tOC 14 TRACE TRAP (USED IN BACKGROUND TEST) 

}#5 LOC 20 lOI TRAP (USED IN CALLING BACKGROUND TEST) 

,"1000 



PALXll V003 29«OCT»70 



001000 



0^000 177570 

001002 177776 

001004 177566 

0('ll006 177562 

0C1010 i77564 

0^1012 177560 



001014 177460 

0"1016 177462 

0^1020 177464 

0/11022 177466 

011024 177471^? 

0W1026 177472 

1030 177474 

011032 177476 

0i'1034 000204 

0';i036 (?!00206 

0.-1040 i?00200 



RFii Dedicate registers (memory) 



1042 




FLAGI 





» INTERNAL PROGRAM FLAG 


'1044 


146723 


RANNUI 


146723 


JRANPOM NUMBER PRIME 


'1046 


000/100 


WRDCTl 





JWORKING WORD COUNT 


0-^1050 


i300M00 


TRACK* 





{WORKING 0A£ 


0. 1052 


000'^00 


DMAl 





IWORKING DAR 


-^1054 


00;-i "00 


PATNU! 





IDATA PATTERN INDEX 


'1056 


000 


BUF J 





JWORKING DATA BUFFER (OUT-IN) 


1060 


W00M00 


TWRDCTI 





JTEMP WORD COUNT 


1062 


000r 00 


TDMA! 





ITEMP OAR 


1064 


0:'' 


SWRDCTI 





I STANDARD WORD COUNT 


0.11066 


;:)0i.:).'0lJ 


ERCOUNTJ0 


lERROR COUNT FOR MESSAGES, 


0''1070 


000i"00 


SAVEI 







0.'H072 


'^'00000 


SAVll 







'1074 


'400 f 00 


PASSI 







1076 


H k) [: 


DSKNORI 







'1100 


i)00v;0v 


HROERI 





IPOINTER FOR HARD ERROR 


0.'1102 


y0ijH0ff 


PASSCI 








JRFII WORK REGISTERS 

I (CAN BE CHANGED IN ANY ROUTINE) 

0-1104 u0lf"^0E5 WORK I 



0U1 



PAGE 3 



.EVEN 

Il/O ADDRESS POINTERS 

SRI 177570 

CSRI 177776 

TPBI 177566 

TKBI 177562 

TPSI 177564 

TKSI 177560 

I 

IDISK I/O REGISTERS 
J 

DCSl 177460 
WCI 177462 
CMAI 177464 
DARl 177466 
DAEl 177470 
DBRl 177472 
MAI 177474 
AOSI 177476 
VECTOR I 204 
STATUSI 206 
PRI0RITY«BIT7 



ISWITCH REGIISTER 
IPROCESSOR STATUS REGISTER 
ITELETYPE REGISTERS 



;OISK CONTROL REGISTER 

IWORD COUNT REGISTER 

ICURRENT ADDRESS REGISTER 

jLOWER 16 BITS OF DISK ADDRESS 

lEXTENSION ADDRESS REGISTER 

iDATA BUFFER REGISTER 

IMAINTCNANCE REGISTER 

aOOK AHEAD REGISTER 

I INTERRUPT VECTOR ADDRESS 

lOISK INTERRUPT STATUS 

IDISK PRIORITY LEVEL 



PAlxil V003 29-OCT-70 



0111 PACE 3-1 



001106 

0i:''1110 000000 

0';'1112 000''^00 



WORKll 
WORKS I 
W0RK3I 



paLxii 


V003 


29-OCT'' 


70 


0111 


PAGE 4 






10 ' 1 J, J. ^ 


ci i1 »^ CI 5 






<!T ABT 1 

w 1 Mn 1 • 


RFSrT 




1 Rl TAR TWE UnHLn 


■1116 


d!' i 2 7 6 


01-: X 






MOV 


#10001 X6 


|S6T UP STACK 


0i.'ll22 


012777 


? 3 4 


177652 




MOV 


#340{*CSR 


ILOCK UP INTERRUPT LEVELS 


0-'ll30 


1305 '67 


177706 






CUR 


FLAG 


ICLEAR PROGRAM FLAG 


1^1 1 1 3 4 


k'l 5 1^3 6 / 


177710 






CLR 


TRACK 


ICLEAR TRACK REGISTERS 


'11 40 


005i?67 


J,77706 






CLR 


DMA 


jclear oar registers 


'1144 


005-167 


177704 






clr 


PATNU 


JCLEAR patter COUNT 


0i'll50 


01276^ 


1 


177706 




MOV 


#10001 SWRDCT 


JSET UP STANDARD WORD COUNT 


0''ll56 


Li 1 6 7 6 7 


177702 


1 /766« 




u n li 

MOV 


SWRDCT 1 WRDCT 




ill 64 


y95777 


177610 






TST 


9SR 




'1170 


100405 








BMl 


CONM 


lOPERATE UNDER PROGRAM CONTROL 


ll72 


1392767 


m (Ti n t~a lA 

0700010 


177642 




B I a 


#700001 FUAG 




0'*1200 


000167 


' 4 6 4 






JMP 


adtst 












J ENTER 


OPERATOR 


CONVERSATION 


MODE 


1204 


104 1 






CONM I 


EMT 


♦1 


jASK ABOUT DATA TEST ONLY 


'1206 










CONl 






0'1210 


004767 


011234 






JSR 


%7i ALPHA 


iGo WAIT For answer 


'I2l4 


1^22767 


'0153 


011426 




CMP 


#153,TEXBUF 


ITEST FOR YES 


'1222 


v3 01/1 03 








BNE 


,♦10 


jbrancw if no 


'1224 


092767 


0)2000 


177610 




B I S 


#BIT10#FLAG 




'1232 


104?0l 








EMT 


+ 1 




i:?34 


i 5 1 3 3 6 








C0N2 




lASK ABOUT MULTI DISK MODE 


1236 


00476^ 


01120^ 






1 c o 

JSR 


•/HI A 1 ra i 1 A 

%7 1 ALPHA 


JGO WAIT FOR ANSWER 


1242 


1122767 


0.10153 


011400 




CMP 


#153, TEXbUF 


iTEST FOR YES 


1250 


001 ^26 








BNE 


DATTES 


JDO NOT ENTER STATIC TEST 


1252 


ft O "7 i 7 


n f/' >l /I rji (Vl 


4 "7 T K /I O 




D I a 


#BITll»FLAG 


JSET FLAG TO tNTER STATIC TEST 


' 1 2 6 


i04:('01 






OSKOR 1 


EMT 


*1 




0-'il262 


013326 








C0N3 






0.'1264 


tfj04767 


011150 






JSR 


%7 1 NOCHA 




0.11279 


16276 / 


1 


n < 4 ICO 
J,139< 




SUB 


#1 1 TEXBUF 




■ ■ 1 2 7 6 


022767 




011344 




CMP 


#10,TEXBUF 




'1304 


101765 








BIOS 


DSKDR 




01^11306 


,'."16767 


011336 


177562 




MOV 


TEXBuFi DSKNOR 




0''1314 


00616 7 


177556 






ROl 


DSKNOR 




0''1320 


M 6 1 6 7 


I7755i^ 






ROL 


DSKNOR 




"1324 


000420 








BR 


ASKWC 




1326 


104 i0l 






DATTESI 


EMT 


+ 1 




'1330 


01335/ 








C0N4 




lASK UNIT NUMBER 


0-^1332 


004767 


01H02 






JSR 


X7|N0CHA 


JWAIT FOR NOi 


0:'1336 


022767 


0iJ0010 


011304 




CMP 


#10iTEX8uF 


1 IS NO = O>10 


"1344 


101770 








BUOs 


DATTES 


I NO 


1346 


000241 








CLC 






1350 


006167 


011274 






ROL 


TEXBuF 




0'n354 


006167 


011270 






ROL 


TEXBUF 




0>1360 


056767 


011264 


A n ^ A R A 




BIS 


TEXBUfiFuAG 




' 1366 


i W •1 W 1 






ASKWC 5 


r" kj T 

EMT 


♦I 




0'1370 


013370 








C0N5 




lASK ABOUT OPTIONAL WORD COUNT 


'1372 


004767 


011052 






JSR 


X7| ALPHA 


IWAIT FOR ANSWER 


'13 /o 


fi 5 "3 7 A 7 


10 'J 10 1 P w 






Cnr 


»150 1 1 L aQUF 




'1404 


001021 








BNE 


OPOAR 


JASK ABOUT OPTIONAL DAR 


0.'1406 


104C101 






WCCONI 


EMT 


*1 




0.J1410 


013407 








C0N6 




JASK LENGTH OF Wc 


U412 


004767 


011022 






JSR 


%7, NOCHA 




3VU416 


005767 


011226 






TST 


TEXBUF 





PALXll 
H422 

0^1432 
0iJl434 
001442 
0)1450 
'-1452 
0-^1454 
0^^1460 
031466 
0'.H470 



V003 

001771 
4^22767 
10176? 
016767 
016767 
104001 
013434 
004767 
022767 
10177y 
316767 



29«OCr-70 

031001 

011210 1 

177416 1 

010760 

0."4000 

011154 1 



011216 

177422 
177376 

011162 
177354 



0111 



OPOARJ 



PAGE 


4-1 


BEQ 


WCCON 


CMP 


#1001iTExBUF 


BUOS 


WGCON 


MOV 


TEXBuFiSWRDCT 


MOV 


SWRDcTiWRDCT 


EMT 


♦1 


C0N7 




JSR 


X7,N0CHA 


CMP 


#40001 TEXBUF 


BLOS 


OPDAR 


MOV 


TEXBUPi DMA 



J IS WORD COUNT>1000 
lYeS ASK rOR COUNT AGAIN 
JOPERATING WORD COUNT 

lASK ABOUT OPTIONAI, PAR 
J3777 MAX DAR ADOR 
ITEMP DAR REGISTER 



PALXll 


V003 


29»0CT« 


70 


0111 
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1476 


11^4.301 






OPPAT« 


EMT 


*1 






013447 








CONS 




jASK ABOUT DATA PATTERNS 


001502 


004767 


010732 






JSR 


X7iN0CHA 




1506 


02276/ 


0^0023 


011134 




CMP 


#23iTEXBuF 


JTEST FOR CORRECT NO 


0'n5l4 


101770 








BLOS 


OPPAT 


)ASK AGAIN 


0'U516 


022767 


000022 


011124 




CMP 


#22iTEXBUF 




0P1524 


001414 








BEQ 


OPWRT 


IDATA PATTERN UNDER PROGRAM CONTROL 


001526 


052767 


1^0000 


177306 




BIS 


#BIT19|FL.AG 


JSET PROGRAM FLAG 


0' 1534 


016767 


011110 


177312 




MOV 


texbuf, patnu 


lOPERATOR WANTS TO SELECT DATA 


0-1542 


000241 








CLC 






0i'l544 


006167 


177304 






ROU 


PATNU 




01 1550 


042767 


070000 


177264 




BIG 


#70000|FLAG 


ICLEAR OP MODE BiTS IN FLAG 


0> 1556 


104001 






OPWRTI 


EMT 


♦ I 




0t'1560 


013478 








C0N9 




JASK ABOUT WRITE 


01 1562 


00476/ 


010662 






JSR 


X7|ALPHA 




1566 


022767 


0^0153 


011054 




CMP 


#193,TEXBUF 


ITEST rOR YES 


0-'l574 


001 103 








BNE 


OPWCK 


jASK ABOUT WRITE CHECK 


1576 


05276/ 


040000 


177236 




BIS 


#BIT14,FUAG 


lYEs SET Flag bit 


0' 1604 


104301 






OPWCKI 


EMT 


♦I 




0. 1606 


013502 








CON10 




lASK ABOUT WRITE CHECK 


'1610 


004767 


010634 






JSR 


X7, ALPHA 




0M1614 


022767 


01^)0155 


011026 




CMP 


#153,TEXBUF 


jTEST FOR YES ANSWER 


0^622 


001«03 








BNE 


OPRD 


IGO ASK ABOUT REaO 


01^1624 


052767 


020000 


177210 




BIS 


#BIT13»FlAG 


JYES SIT FLAG BIT 


0,'1632 


104ui01 






OPROI 


EMT 


♦I 




0. 1634 


013520 








CONll 




lASK ABOUT READ 


0' 1636 


004767 


010606 






JSR 


%7iALPHA 




0> 1642 


022767 


0; 0153 


011000 




CMP 


#153,TEXbUF 


iTEST FOR YES ANSWER 


^1650 


001003 








BNE 


chkflg 




0^'1652 


052767 


010000 


177162 




BIS 


#BIT12,FUAG 


)SET FLAG TO READ 


0. 1660 


032767 


070000 


177154 


CHKFLCI 


BIT 


#70000iFl.AG 




:H666 


001735 








BEQ 


OPWRT 





I 



I 
I 



''1670 


y3276/ 


0-^4000 


177144 


ADTSTJ 


BIT 


#BlTlliFLAG 


lARE W^ IN MULTI DISK MOUE 


1676 


001423 








BEQ 


EXMFl6 


JBRANCH IF NO, 


0' 1700 


104(101 








EMT 


♦ 1 




0^'1702 


til3204 








MESll 






0-1704 


t;i6767 


177132 


010524 




MOV 


FLAG, ACNVX 




'1712 


006-^67 


010520 






ROR 


ACNVX 




0' 1716 


006 ''67 


010514 






ROR 


ACNVX 




'1722 


042767 


177770 


010506 




BIC 


#177770, ACNVX 


IFETCH DISK # 


1730 


00456/ 


010422 






JSR 


%5,C0NV 




173 4 


012436 








ACNVX 






1736 


U13216 








MES12 






1740 


kj0k)" 01 








1 






1742 


104 01 








EMT 


♦ 1 




174 1 


013216 








MES12 






'1746 


k;32767 


01^2000 


177066 


EXMFLGI 


BIT 


*BIT10,FLAG 


ITEST FOR DATA TEST ONLY 


0^1754 


i6'01402 








BEQ 


.*6 


J DO COMPLETE TEST 


51 1756 


000167 


0"I3074 






JMP 


DATAT 


>D0 DATA TEST ONLY 



PALXll Vf'l^S 
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|»*«ADOrESS ADT2*»« 
} 

MN THIS TEST WRITE TRACK 2ER0 WITH ZERO'S 
JTHEN WRITE AIL ONES IN AN ADDRESS 
ICHECK IF WRITING ONES IN THAT ADDRESS ALTERED 
JANY OTHER ADDRESS IN THE TRACK 
JFOLLOW THIS PROCEDURE FQR ADDRESSES TO 3777 
) 
I 



0^!1762 


(?127 06 


001000 




A0T2I MOV 


#1000iX6 


;SET UP STACK 


1765 


yl2767 


002000 


177052 


MOV 


)y2000iWRDCT 


ISET UP WORD COUNT 


? 1774 


.)12767 


013534 


177054 


MOV 


#0UTBUFiBUF 


JSET UP current ADDRESS 


2002 


516767 


177046 


177060 


MOV 


PATNUiSAVE 




3 20ia 


005 '67 


177040 




CLK 


PATNU 




^2014 


ki 05 116 7 


177030 




CLR 


TRACK 




0. 2020 


005067 


177026 




CLR 


DMA 




0-'2024 


004567 


0'15360 




JSR 


X5,PaSEL 


ISET UP DATA BUFFER 


0.''2030 


016767 


177034 


177016 


MOV 


SAVE, PATNU 












l»»*#WRlTE DISK 


ADOR, TO 1777 WITH ZEROES 


2036 


527 77 


"0400 


176750 


RFADTf BIS 


#BITBi»DCS 




'2044 


104403 






WRITE 






0-2046 


105777 


I7674i: 




TSTB 


9DCS 


itest for ready 


0'^^2052 


100375 






BPU 


, "4 




2,554 


005777 


176734 




TST 


9DCS 


ITEST FOR ERROR 


2060 


10'^.'l6 






BPU 


RFADTX-6 




'2062 


01276/ 


0.0001 


176776 


MOV 


#l,ERCOUNT 


jerror occurred 


2 70 


H7767 


176720 


177010 


MOV 


»DCS,WORKl 


IFETCH DCS REGISTER 


'207 6 


017767 


176720 


177000 


MOV 


(?DAR,W0RK 




0''2 1.04 


t}05367 


176774 




DEC 


WORK 




■2110 


004567 


0;'7770 




ERll JSR 


X5,STAER1 


IREPORT ERROR OCURRED 










)»»«»WRo1=ConTROL STATUS REG, 


AT THE THE TIME OF THE ERROR •»•• 










1»##*WRo2bDISK 


AdORi at the TIME OF THE ERROR *••• 


■ 2114 


14500750 






BR 


RFADT 


ILOOP ON ERROR 


' 2 U 6 


'^12767 


0''2000 


176726 


MOV 

j*«*«WRlTE DISK 


#2000iDMA 
ADDR. 2J300 TO 


3777 WITH ZEROES »»»• 


'2124 


052777 


0.50400 


176662 


rfadtxi bis 


#BIT8i»DCS 


JCLEAR THE DISK 


0^'2l32 


104403 






WRITE 






'2134 


105777 


176654 




TSTB 


90CS 


jtest for ready 


'2140 


100375 






BPU 


,-4 
90CS 




0- 2142 


005777 


176646 




TST 


;TEST FOR ERROR 


3-2146 


100i^'l6 




BPL 


RFRD"4 




0''2l50 


017767 


176646 


176726 


MOV 


9DAR,W0RK 




0'^2i56 


005367 


176722 




DEC 


WORK 




;i2l62 


017767 


176626 


176716 


MOV 


9DCS,W0RKl 


IFETCH DCS REGISTER 


'2170 


012767 


000002 


176670 


MOV 


#2,ERC0UNT 


ISETUP ERROR COUNT 


'2l76 


004567 


0i'7702 




ER2I JSR 


X5,STAER1 


JREPORT DISK ERROR 








J »»»«WRDlaDlSK 


CONTROL STATUS 


REG, AT THE TIME OF THE ERRQR •••• 










1 ••♦•WRo2 = UISK 


ADDR, REG AT THE TIME OF THE ERROR •*»• 


0-2202 


000750 






BR 


rfadtx 


ILOOP ON Error 


'2204 


005067 


176662 




CLR 


SAVl 




0^'2210 


005067 


176654 




RFRDI CLR 


SAVE 





PALXll V003 



29-OCT-70 



0lil PAGE 7 



0i''22l4 


(312727 


177777 


177777 


WONWDI 


MOV 


iH-l 




0^ 2222 


ldl276/ 


Ui^2220 


176626 




MOV 


#W0NW0*4,BUF 
#1iWrDCT 




2230 


kjl2767 


0(J0001 


176610 




MOV 




2236 


016767 


176630 


176606 




MOV 


SAV1#DMA 




2244 


052777 


0^0400 


176542 




BIS 


#BIT8i»DCS 




0"2252 


104403 








WRITE 






0i'2?54 


105777 


176534 






tstb 


• DCS 


ITEST FOR READY 


(i) 2260 


10^j375 








BPL 


.-4 

»DCS 




0' 2262 


005777 


176526 






TST 


JTEST FOR ERROR 


2:^66 


1 14 /1 1 4 








BPL 


SUADB 


IBRANCH IF NO CONTROL ERROR 


2?70 


017767 


176520 


176610 




MOV 


»DCS,WORKl 




2276 


1116767 


176570 


176600 




MOV 


SAVliWORK 




' 230't 


1J1276/ 


0-'000^ 


176554 




MOV 


#3,ERC0UNT 


JSETUP ERROR COUNT 


0^ 2312 


(504567 


'7566 




ER3j 


JSR 


X5,STAER1 


jREPORT ERROR 










l»#»«WRDl=DlSK 


CONTROL STATUS 


AT THE TIME OF THE ERROR»»«« 










l»»»*WRD2»i0lSK 


AdDRi In ERROR 


WHEN TRYING TO WRITE ALL QNeS 


2316 


000736 








BR 


WONWD 


»RE"WRITE WORD 


2320 


005767 


176544 




SUADBI 


TST 


SAVE 




2324 


001415 








BEQ 


CHKHER 




2326 


k)22767 


0.2000 


176536 




CMP 


#2000iSAVl 




'2334 


101ol& 








BHl 


WRCAOT 




2336 


016700 


176530 




BUFINDI 


MOV 


SAV1|X0 




2342 


1^06100 








ROl 


X0 




2344 


04270W 


174001 






BIG 


#1740101 , %0 




'2350 


012760 


177777 


03.3534 




MOV 


#-iiOOTBUF(0) 




2356 


000404 








BR 


WRCADT 




'2360 


022767 


0?2000 


176504 


CHKEERI 


CMP 


#2000iSAVl 




0'2366 


101363 








BHI 


BUFINO 




2370 


052777 


J0400 


176416 


WRCADTI 


BIS 


#BIT8i»DCS 




2376 


t)12767 


002000 


176442 




MOV 


#2000»WRDCT 


;SETUP WORD COUNT 


24 04 


1 2 7 6 7 


013534 


176444 




MOV 


#OUTBUr »buf 


ISETUP CURRENT ADOR 


'2412 


316767 


176452 


176432 




MOV 


SAVEt DMA 


JSETUP DISK ADDRESS 


a •2420 


104407 








wrcheck 






01-' 2 4 22 


105777 


176366 






TSTB 


ifOCS 


;CHECK FOR READY 


0.'2426 


100375 








BPL 


1 "4 

»DCS 




0t'2430 


005777 


176360 






TST 


J TEST FOR ERROR 


0.:2434 


100030 








BPL 


CHKBuF 


iBRANCH NO DISK ERROR 


0v'2436 


017767 


176352 


176442 




MOV 


*DCS,W0RK1 




!2444 


01676'' 


176422 


176432 




MOV 


SAVlf WORK 




002452 


(305367 


176426 






DEC 


WORK 




0'-'24 56 


012767 


? 4 


176402 




MOV 


#4|ERC0UNT 


ISET Ul' ERCOUNT 


2464 


004567 


0v)74l4 




ER4I 


JSR 


X5,STAER1 


IREPORT ERROR 


0>;2470 


017767 


176326 


007740 




MOV 


«6DARi ACNVX 


ISET UP DISK ADOR, FOR REPOl 


'2476 


004567 


0i"7654 






JSR 


X5iC0NV 




0^^2502 


012436 








ACNVX 






0t'2504 


013P6!> 








ME54 






0''*2506 


000006 








6 






0. 2510 


104001 








EMT 


♦ 1 




0'12512 


i!3l3'^65 








MES4 














;««»«MRDl3C)ISK 


CONTROL STATUS 


REG, AT THE TIME OF THE ERHQR 



0..2514 U00725 



|«»»«WRd2"DISK ADOR, iN ERROR DURING WRITE CHECK ••»* 
]»«»«WRo ADOR.-ADDR, WHICH CONTAINS ALL ONES »*»« 
BR WRCADT 



PALXll 


V903 


29'-0CT" 


70 


0111 PAGE 8 








ic? A V / Iv 


1 76'XS0 






C A W 1 . X0 
O n V • 1 




3 ^2522 


1 '•.'7 






D f\ 1 


V n 

%V 




0(12524 




174001 




D I y 






0-''2530 


1305 ^60 


013534 




CLR 


OUTBUF(0) 




0;^2534 


/ J a CE "7 ^ "7 

00976 / 


17633» 




TOT 


SAVE 




25^'' 


tA 01 "1 M A 

y 10 1 KHon 










iQcuDTTr AnnRPCc Tn stri 


0^'2542 


012767 


tH tX ^ fw f% lA 

002001^ 


176320 


LI A VI 

MOV 


#2000 1 SAVE 




3 V' 2 550 


000663 






BR 


suadb 




0t'2552 


i<j05(^67 


17o31« 




ctROAwl CL.n 


S AVt 


/ 


002556 


ill A ^ 7 

01676 ' 


1 '63110 


4 7 A O A A 


Mm/ 
MOV 


SAVl 1 MMA 


IStTUr DISK AUUntsS 


'2564 


005327 


000000 




CU" 


#0 


■ OPw IIS F\Aaii 

J SET UP DATA 


0' 2570 


012767 


002566 


176260 


MOV 


# 1 "2 1 BUF 


JSETUP CURRENT ADDRESS 


''2576 


«l "7 ^ 7 

01276 / 


!J 1 


1 / 6c4< 


M n u 
MOV 


M4 U Q n ^ T 

#1 1 WRQC f 


lat,TUr WOnQ CUUNT 


0-''2604 


104403 






WRITE 






0''2606 


105777 


176202 




tstb 


• DCS 


J CHECK FOR READY 


'2612 


i00375 






BPL 


,"4 


iTrcT e no rPonR 


032614 


y lop / 7 / 


176174 




TCT 

T 3 1 




002620 


100f^l4 






BPL 


INOADT 




0-^2622 


012767 


01^0005 


176Z>50 


MOV 


#5 1 ERCOUNT 




0'':l2630 


017767 


4 ^ ^ 4 ^ a 
176160 


1762510 


u n ly 
Mg V 


A f<H ^ c y A O ty Kl 

• DCS 1 WORKl 




0^12636' 


017767 


176160 


176240 


MOV 


•OAR, WORK 




'2644 


J5 4 5 6 7 


ii 7 2 3 4 




ER5| JSR 


XS.STAERl 












I*«#«WRd1»C0NTR0L status REG, AT 


THE TIME OF THE ERROR *' 










I*»*«WR02"0ISK 


ADOR, AT THE TIME 


Or Tnt LnKUn »*»# 


0vJ2650 








BR 


ZEROAO 




01-^2652 


U22767 


003777 


176212 


INOAOTI CMR 


#3777iSAVl 




032660 


001404 






BEQ 


LP2ADT 


JUAST ADDR| CMtCKED 


'-'^ 2 6 6 2 


ij M K n 7 


176204 




INC 


SAVl 




3< 2666 


000167 


177316 




JMP 


RFRD 


ICHECK NEXT ADDRESS 


0'"'2672 


032777 


f% Ci A n n 
W » 


1 /Olil'w 


LP2ADTI BIT 


#BITH,»SR 


ITQ DTT 11 erT Tkl CO 

I la DiT ll SL 1 IN Sn 


3i'^2700 


001402 






BEQ 


.♦6 




0-2702 


000167 


177054 




JMP 


ADT2 


JBIT 11 SET LOOP ON TEST 



I 
I 
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PALXll 


V003 


29-OCT- 


70 


0111 


PACE 10 














I 

I **••• 


ADDRESS 


TEST ••••• 












1 

IWRITE 


EACH UNIQUE ADDRESS ON 


ITSELF FOR TRACK 










jTHEN Read it back and compare 


FOR THE 










ICORRECT DATA 
\ 








05 ' 6 7 


176140 




1 

A n T T 1 




DMA 


jCLEAR active REG 


' 2712 


005*^67 


176l3id 






V U " 


TRACK 




W C / X V 


(,i 5 r/i A 7 


176162 

X f w X o * 






ri R 


WORK 




Tl 1^ O "7 O O 


111 cm '1 & 7 


1 7 6 4 A 
X ' O 1 »' 






r 1 R 


WORKl 




V) c / CO 


M i 9 7 H 6 


01 "1 1 Dl PI 

10 X 10 *^ 






n u V 


#1000iX6 


jSETUP STACK 


w- c 1 o c 


01276/ 


01353** 


176116 

X ' w X X 5f 




n u V 


)!*OUTBUF,BUF 


;SET UP CURRENT ADDRESS 


t% < O 7 4 01 


01197 A7 


' 2000 


1 76100 

X ' O X 




M n u 
n U V 


#2000iWRDCT 


iSET UP WORD COUNT 


fTI ' 1 9 7 4 A 


'1127 00 


013534 






M n u 
nU V 


#OUTBUF»X0 


jFILL BUFFER WITH COUNT 


01' 2 7 52 


t_j i 6 7 2 u 


176126 




T M A nn ! 

i INnUD • 


n w V 


WORK, (0>* 




(?1 • i "5 7 S f > 


140596 7 

lf.J ^ C W / 


1 76i ?2 






IMC 


WORK 


J*l COUNT 


l< T 7 A O 


1 1 9 9 7 d t i 


(711 7*; "^4 

«y X f 9 ^ 






CMP 


#OUTBUF«4000i%0 


31 ■ "3 7 A 


l1 1 "? 7 1 
U X »J f X 








BNE 


I iNADB 


iCtCT IIP NirvT UnRn 


c)|i-27 70 


016767 


176110 


176072 




MOV 






0:2776 


y 5 2 7 7 7 


00400 


176010 


WRABF J 


BIS 




in TAR Twr riT^K uriRin 

lUUCHn inc. Ul^rv WvnuU 


. T fil (51 ^ 

i/) o 1(3 lo 'i 


X 10 T *f iw « 








WRITE 




1 UR T TT 


^ i 1 (?l (71 A 
■J o K) W O 


^ 0«?777 

1 1" 3 / / ' 


^ f U K' IV £ 






TSTb 


U w ^ 




u o 10 X <- 


X V / 3 






BPL 




ICDNITROI HFADY 




,iCjR777 
V3 w 3 / / ' 


1 75774 






TST 




|T<; TUTRT AM TRRnR 


'•1 W c If 


1 1?! '■ 1 1 
X " XX 








BPL 


TFBL 


iNQ ERROR 




01776/ 


175766 


176054 




MOV 


«»DCS,WORK 


IFETCH CONTENTS qF CONTROL REG 


M ■ T! 01 PI 


i' 1 9 7 A 7 


-0006 


176030 




MOV 


#6|ERC0UNT 


JSET UP ERROR COUNT 


t3( ■ "I Cfl 

W • O W O " 


1.1 4 S A 7 


''7002 




ER6 J 


JSR 


X5,STAeR 


IREPORT CONTROL ERROR 










1 #»«#wrd1'«oisk 


CONTROL SjAtuS 


REG, AT THE tIME OF THE ERHOH *»*» 




y 7 5 5 








BR 


WRABF 


IRE-WRJTE DATA 


v) ■ i3 Ifl t T 


116 7 6 7 

V' X V / w ' 


1 76W90 


176032 


TFBLI 


MOV 


SAVE, WORK 




3052 


{) 62767 


012000 


175772 




ADD 


#2000iDMA 






(,,^276 / 


4000 


176016 




CMP 


)tt4000iWORK 


IHAVE WE WRITTEN ALL OF TRACK 


i?l ' 01 ft A 


/, 01327 








BNE 


INADB''4 




r» ■ T d 7 CI 


It? r_' •/ O ' 


1 76C11 

X ' w 161 X 






CLR 


WORK 






5 ' 6 7 


175752 






CLH 


DMA 




'J '3100 


005.16 7 


I7600ii 






CLR 


WORKl 




v O X W f 


1-16277 7 


00040^ 


175702 


rdtdni 


BIS 


#BIT8i»DCS 


jCLEAR THE DISK 


to o 1 X c 


i (?l 4 4 (71 5 

1 W T M rf' 








READ 






w • O X X ~ 


1 057 7/ 


175674 






TSTB 


»OCS 


MS THE CONTROL READY 


d ■'5120 

It' ' w X C 


100375 








BPL 


, "4 


JYES THE CONTROL IS READY 


W • 1 C 


1-1057 7 7 
kJ If ? / / / 


i 75666 






TST 


9DCS 


J IS THERE AN ERROR 


vl O X c O 


1 ''1 1 1 








BPL 


adrcmp 


;no error 


f1 ■'5130 


!ul276 / 


1 • 000/ 


175730 




MOV 


#7,ERC0UNT 


>SET UP ERROR COUNT 


W ' i5 1 O 


M 1 7 7 6 7 


175652 


175740 




MOV 


»DCS,WORK 


IFETCH CONTROL REG, 




CI 4 A 7 

i;l *! ^ f 






ER7I 


JSR 


%5,STAER 


»REPORT CONTROL ERROR 










!*»«*WRd1=0ISK 


CONTROL STATUS 


REG, AT THE TIME OF THE ERROR 


3-3150 


000755 








BR 


ROTDN 


IRE-READ 


0' 3152 


012767 


013534 


175710 


ADRCMPI 


MOV 


#OUTBUF»SAVE 
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3160 
3166 
■'3170 
3176 
3204 



3210 
'3216 
0:'3222 
0-3230 

3232 

01 3240 
3242 
0. 3250 
0..'3252 

0''3260 



027767 

001410 
017767 
012767 
00456/ 



06276/ 
i306267 
;i22767 
001353 
1)22767 
001404 
tj62767 
000715 
0^277/ 
^01212 



17S704 17572M 

175674 175706 

030010 175662 
0;'6674 



0?0002 
175664 
017534 

01M000 

0.'2000 
004000 



175652 
175640 
175646 
175602 
175520 



I IS THC ADDRESS CORRECT 
ICOMPARE NEXT WORD 
IFETCH LOAD ADDRESS 
jSCT up error COuNT 
irsport comparison error 

ADDR, WANTED •*«* 
ADDRi RECEIVED *•*• 
«2|SAVE 
WORKl 

#OUTBUr*4000,SAVE IIS IT THE LAST ADDR INBUF 



PSAVEiWORKl 

INCCMP 

»SAVEiWORK 

#10»ERCOuNT 

X5,STA&R1 



CMPNEXI CMP 
BEQ 
MOV 
MOV 

ER10t JSR 
j*«»#WRDl'»OlSK 
>««»»WRd2«DISK 
INCCMPI ADD 
INC 
CMP 
BNE 
CMP 
BEQ 
ADO 
BR 

LPADT3I BIT 
BNE 
» 
I 
I 
I 
I 

IRFII TRACK SELECTION TEST 
I 

IWRITE THE FIRST AND LAST ADDRESS OF EACH TRACK 

iwiTH THE Octal value of each track 

IBITS THRU 6 EQUAL THE TRACK NUMBER 
)8IT 15 RESET EQUALS ADDR OF THE TRACK 
JBIT 15 SET EQUALS ADDR 3777 OF THE TRACK 
I 

JAFTER WRITING THE DISK READ EACH ADDRESS 
;AND compare data for the CORRECT VALUE 
I 



CMPNEX 
#4000iWORKl 
LPADT3 
#2000»DMA 
RDTDN 

#BITll|«»SR 
ADT3 



ICOMPARE NEXT WORO 
MS IT THE LAST APDR, OF TRACK 

ISET UP FOR NEXT BUFFER 
|G0 READ BUFFER 
ILOOP ON TEST? 
lYES BIT 11 SET IN SR 



0i 3262 


005«67 


175564 




ADT4I 


CLR 


DMA 


JCLEAR WORK REGISTERS 


0.'3266 


0050 67 


175556 






clr 


TRACK 




0^3272 


005 )67 


010236 






CLR 


OUTBuF 




0. 3276 


012706 


01-1000 






MOV 


#10001X6 


ISETUP STACK 


■3302 


052777 


0110400 


175504 




BIS 


#BlT6i»DCS 


JCLEAR THE DISK WORLD 


0.'3310 


U12767 


013534 


175540 




MOV 


#OUTbUFiBUF 


JSET CURRENT ADDRESS 


0-3316 


H12767 


000001 


175522 




MOV 


#1iWrOCT 


ISET UP WORD COUNT 


13324 


104403 






INSWTI 


WRITE 




IGO WRITE 


^3326 


105777 


175462 






tstb 


9DCS 


IIS READY SET 


0.'3332 


100375 








BPL 


."4 


lYESI WAIT FOR NOT BUSY 


0."3334 


005777 


175454 






TST 


ws 


ITEST FOR ERROR 


0^3340 


i00;m 








BPL 


TSTTK 


INO ERROR GO ON 


"3342 


012767 


0H0011 


175516 




MOV 


#11,ERC0UNT 


JSET UP ERROR COUNT 


3350 


017767 


175440 


175526 




MOV 


(?DCS,WORK 


JREPORT CONTENTS OF DCS REG 


'3356 


004567 


0f'6462 




ERllI 


JSR 


%5,STMH 


JREPORT ERROR OCCURRED 










)»*»»WRd1»DiSK 


CONTROL STATUS 


REG, AT THE TIME OF THE ERROR 


0P3362 


000760 








BR 


INSWT 


ICO RE«'WRITE 


0'J3364 


02276/ 


100177 


010142 


TSTTKI 


CMP 


#100l77iOUTBUF 


JTEST FOR LAST ADQR, 


0'/^3372 


001427 








BEQ 


INSRD 


iGO READ THE DATA 


0i'3374 


032767 


100000 


010132 




BIT 


^BlTlSiOuTBUF 


lis IT ADOr 2ER0 


0H3402 


0011^0/ 








BNE 


MVNEM 


JNO 



PALXll 


V003 




70 


0111 


PAGE 


11-1 




092767 


100000 


010122 




BIS 


#BrTl»,OUTBUF 


0^3412 


062767 


0'^3777 


175432 




ADO 


#3777iDMA 


0-3420 


000741 








BR 


INSWT 


3422 


042767 


lhl0000 


010104 


MVNEMI 


BIC 


#BlTl5,0gTBUF 


0^3430 


005267 


010100 






INC 


OUTBUF 


003434 


062767 


01?'000l 


175410 




ADD 


#1iDMA 


0^3442 


10333W 








BCC 


INSWT 


003444 


005267 


175400 






INC 


TRACK 


a?3450 


000725 








BR 


INSWT 



lYESl SET UP FOR LAST ADDR 
ISET UP FOR LAST ADDR 
JGO WRITE 

ISET UP FOR ADDR 2ER0 
MNC, TO NEXT TRACK 
IINC. BAR 

>G0 WRITE NO CARRY TO DAE 
) INC. DAE REG. 
JGO WRITE 



PALXll V003 29-OCT«70 0111 PACE 12 



ireao The first and last address of ea(Jh track 
land verify it has the correct data 



0.13452 


0135067 


175374 




INSRDl 


CUR 


DMA 


{CLEAR WORK REQi 


3 '3 3 4 5 


YJlOO "0 f 


•4 7 R T iL A 






CLR 


TO kfiif 

TKAUK 




M O ^ C 


avyao f 


1 f 3«H0«. 






clr 


c A u r 




10 /J O *t V V 


092777 


%J KJ W ^ %i 


175320 




BIS 




iCLEAR THE DISK WORLD 


01'', '<^74 


M i 9 7 A 7 


10 Jl -* 3 »J ~ 


175354 




MOV 




iSET UP CURRFNIT aDHR 


0''3502 


Ag / ' 


01 1^ 01 01 CI 1 






MOV 


i* 1 UonfiT 




51 T «5 1 

o «- w 3 X I" 


j[04 40!^ 






RDTKSI 


READ 




iREad Data 


003512 


105777 


175276 






tstb 


9DCS 


)CHECK FOR READY 


0;"I3516 


100375 








BPU 


, «4 
»OCS 


JCONTROU NOT READY 




005777 


175270 






TST 


MS THERE AN ERROR 


0133524 


100M11 








BPI. 


CMPDTK 


J NO ERROR 


0^''3526 


012767 


000012 


175332 




MOV 


#12,eRC0UNT 


ISET UP ERROR COUNT 


■3534 


fJl7767 


175254 


175342 




MOV 


«iDCS,WORK 


»FETCH CONTENTS qF DCS 


0f3542 


004567 


006276 




ER12i 


JSR 


X5,STAER 


IREPORT CONTROU ERROR 






|»#»«WRDl=OlSK 


CONTROU STATUS 


REG, AT THE TIME OF THE ERROR 


0;^3546 


000760 








BR 


RDTKS 


IGO RE"READ 


0.'3550 


026767 


175314 


011756 


CMPDTKI 


CMP 


SAVEi INBUF 


MS DATA CORRECT 


0:!3556 


i3014l3 








BEQ 


cmnetk 


lYES SITUP FOR NEXT WORD 


0(13560 


016767 


175304 


175320 




MOV 


SAVEiWORKl 


JCORREOT ADDRESS 


0^3566 


016767 


011742 


175310 




MOV 


INBUFiWORK 


MNCORRECT DATA 


0-13574 


J12767 


0^0013 


175264 




MOV 


#13,ERC0UNT 


ISET UP ERROR COUNT 


003602 


004567 


006276 




ER13i 


JSR 


XSiSTAERl 


IREPORT SELECTION ERROR 



}###«WRd1»TRACK ADDR, WANTED ••«• 
j»*»*WRD2»TRACK ADOR, RECEIVED *»•• 



0^3606 


022767 


1''0177 


175254 


CMNETKI 


CMP 


#100177#SAVE 


MS IT THE LAST AODR 


'3614 


001427 








BEQ 


LPTSK 


lEND OP TEST 


'3616 


;332767 


100000 


175244 




BIT 


#b:ti5,save 


MS IT ADOR OF THE TRACK 


0ii3624 


001414 








BEQ 


ZRBIT 


INO! SIgTUP FOR LAST ADDR 


'3626 


042767 


100000 


175234 




BIC 


#BITlS|SAVE 


ISET UP FOR ADDR ZERO 


0^3634 


005267 


175230 






INC 


SAVE 


lINC FOR TRACK NOi 


3640 


062767 


0^:0001 


175204 




ADO 


#liDMA 


ISET UP OAR 


'3646 


103320 








BCC 


RDTKS 


iGO READ NEXT TRACK AODR 


0^3650 


005267 


175174 






INC 


TRACK 


MNC TRACK 


"3654 


000715 








BR 


RDTKS 


iGO READ 


0v;3656 


052767 


100000 


175204 


HRBITI 


BIS 


#BIT19,SaVE 


ISET UP FOR LAST ADDR 


•'3664 


U62767 


0/53777 


175160 




ADO 


#3777iDMA 


ISET UP FOR LAST WORD 


a"3672 


000706 








BR 


RDTKS 


IGO READ LAST ADDR OF tK 


0*:'3674 


W32777 


"'4000 


175076 


LPTSK! 


BIT 


#BlTil,»SR 


MS BIT 11 SET IN SR 


'3702 


001402 








BEQ 




lYES LOOP ON TEST 


3704 


000167 


177352 






JMP 


ADT4 





PALXll V003 29-OCT-70 0|ll PAOE 13 

I 

IRFII LOOK AHEAD TEST 
IWRITE ONE WORD UPON RECEIPT OF 
JNOT READY READ THE LOOK AHEAD 
JREGISTER IT SHOULD CONTAIN THE 
lADORESs *i 



J'3710 


005M67 


175136 




ADT5I CLR 


DMA 


JCLEAR REGISTERS 


l?5 '3714 


005067 


179130 




CLR 


TRACK 




0vi3720 


005067 


175144 




CLR 


SAVE 




13724 


012706 


001000 




MOV 


#1000iX6 


ISETUP STACK 


0.'3730 


012767 


0')000i 


175110 


MOV 


#liWRDCT 


iSET UP FOR ONE WORD X-FER 


0^'i3736 


1^12767 


013534 


175112 


MOV 


#outbuf»buf 


ISET UP CURRENT ADDRESS 


0^^3744 


U52777 


000400 


175042 


WRADTSI BIS 


#BlTei»DCS 


I CLEAR THE DISK 


0.^3752 


104403 






WRITE 




JWRITE 


'3754 


017767 


175052 


179122 


MOV 


«ADS«M0RK 


IFETCH LOOK AHEAD 


0( 3762 


105777 


175026 




TSTB 


• DCS 


J IS THE CONTROL BUSY 


3 '3766 


100372 






BPL 


.-i2 


JCONTROL STILL BUSY 


3770 


005777 


175020 




TST 


eocs 


)IS THERE AN ERRoR 


3774 


100 m 






BPL 


lpaots 


INO DISK ERRORS 


0'/'3776 


012767 


'0014 


175062 


MOV 


#14iERC0UNT 


ISET UP ERROR COUNT 


0.:4004 


U17767 


179004 


175072 


MOV 


•DCS, WORK 


JFETCH DCS FOR REPORT 


'4012 


004567 


006026 




ER14I JSR 


X9,STAER 


IREPROT CONTROL ERROR 










1 »**«WRd1bDISK 


CONTROL REC AT 


THE TIME OF THE ERROR »*•* 


0'4016 


000752 






BR 


WRADT9 


JLOOP ON ERROR 


0^020 


016767 


175026 


175060 


LPADTSl MOV 


DMAiWORKl 


US LOOK AHEAD CORRECT 


'4026 


K26767 


175054 


179050 


CMP 


WORKIjWORK 




4034 


001416 






BEO 


incads 


JLOOK AHEAD OK 


4036 


005367 


175042 




DEC 


WORK 


ICOMPARE FOR ADDRESS*l 


'4042 


026767 


175040 


175034 


CMP 


WORKliWORK 


1 


4050 


ki01410 






BEQ 


incads 


IBRANCH IF EQUAL 


'4052 


005267 


175026 




INC 


WORK 




■■4056 


k;1276/ 


- 001& 


175002 


MOV 


#15,ERC0UNT 




4064 


004567 


0.16014 




ER15I JSR 


X5,STAER1 


IREPORT LOOK AHEAD INCORRECT 










i««»»wrdi«disk 


ADDR, WANTED FROM LOOK AHEAD REG, 










f »»»«WRd2'"DISK 


aodr. received 


FROM DISK LOOK AHEAD REG, •••• 


0''4070 


000725 






br 


WRADT5 


ILOOP ON ERROR 


a 4072 


022767 


003777 


174752 


INCADSI CMP 


#3777iDMA 


IIS IT THE LAST ADOR. 


0'. 4100 


1;!01403 






BEQ 


XLPADT5 


ILAST ADDRESS EXIT 


0-4102 


U0526 7 


174744 




INC 


DMA 


J*l DMA 


0'4106 


000716 






br 


WRADT5 


ICHECK NEXT ADDRESS 


'4110 


032777 


004000 


174662 


XLPADT5JBIT 


#BIT11|*SR 


ILOOP ON TEST 


'4116 


001274 






BNE 


ADT5 


lYES LOOP ON TEST BIT H SET 





V003 


29'»nn T « 


70 


0111 


PACE 14 














1 


SPIRAL 


TESTS 












'write 


THE LAST 


WORD or TRACK 


iERO 










lAND THE FIRST 


unon nP tdAtk 












1 U d 1 IN b 


n M r u n B n 


y oPrRS 

A "T c. n <* 












1 n ATir a 








CI .' 4 1 2 


k;!?277/ 


0O0400 


174666 


I R Al 1 

Or i r\ n 1 


BIS 


#BIT8i*DCS 


iCLEAR THE DISK 




I/) 1 2 7 7 7 


' 3 4 


174646 




M ft U 

MOV 






■ ' 4 1 3 4 


012706 


"11 000 






nu V 


#1000 1 X6 




0-'4l40 


01276/ 


01/0001 


174700 






#i 1 mroct 

~ »fc 1 n w V ' 


ISET WORD COUNT TO 1 


'4l4 6 


005 '"6 7 


174676 






CLR 


TRACK 

1 n A w n 




4152 


012767 


003777 


174672 




MOV 


#3777 J DMA 


ILAST WORD OF TRACK 2ER0 


i 6 


n 12767 


^ €m J 


007346 




MOV 




ISFT UP DATA 


v1 4 1 66 


1*12767 


013534 


174662 




MOV 






n •» J. / t 


1 044^3 

1 W 1 1 K' V 








WRITE 




lUiDTTr lA^T Anns ti^ ^ron 


1'* 4 1 7 6 


105777 


174612 






tstb 


aQCS 

^ W V « 


ITEST FOR RFADY 


0''4202 


100375 








BPl 




ICQNTROL STILL BUSY 


' 4204 


005777 


174604 






tst 


0DCS 




0'4?10 


1 00v^ll 








BPL 


SP I LI 




0-14212 


012767 


0;;0016 


174646 




MOV 


#16iEHC0UNT 




-4220 


151776/' 


174570 


174656 




MOV 


90CS| WQRK 




M226 


1^04567 


-5612 




ER16I 


USR 


%5 1 StAER 












j»»»«WRDlaDisK 


Control status 


RFGi at the TIME Or THF rRROR **** 


'^4232 


k!0Kj732 








BR 


SPIRAL 




i3;i4234 


005267 


174612 




SPILIJ 


INC DMA 






^1 1 4 4 


104403 








WRITE 






0*'4242 


105777 


174546 






TSTB 


9DCS 


IWAIT FOR READY 


" 4246 


100375 








BPL 


1 *) 4 


JCONTROL STILL BUSY 


' 4 ? 5 


005777 


174540 






TST 




'4254 


100 ''11 








BPL 


^p T 1 9 




0.'4256 


012767 


0.;00l7 


174602 




MOV 


*17 . ERCOUNT 




4 2 64 


k!l776 7 


174524 


174612 




MOV 


ancS 1 WORK 




■4272 


U04567 


v) 5546 




ER17I 


JSR 


%5 • STAER 












l»»»»WRDl=DiSK 


criNTRnL Status 


Rrf^. AT TUF TTMF nr TUP rRRflR 


0'.i4276 


1^00711^' 








BR 


SPIRAL 




0'M300 


305267 


174542 




SPIL2J 


INC 


WRDCT 


jSET UP FOR TWO WORD X-FER 


4304 


012767 


0C.13777 


174540 




MOV 


#3777iDMA 


iSTART AT AODR 3777 


4 3 1 2 


012767 


015534 


174536 




MOV 




1 
1 


' ■ 4 320 


104405 








READ 




IREAD DATA 




105777 


1744^6 






TSTB 


~ U V O 


ITPQT FnR OFAOY 


' 4326 


100375 








BPL 




ICONTROI STTI L RllSy 


O O 


005777 


174460 






TST 


~ W V 




' O T 


1 1^ 1 1 








BPL 


SP I L3 




01 ' 4 "I 'X ft 

1(7 ' O O V 


^197 A7 


01 9 


174522 




MOV 






'' 4 3 4 4 


017767 


174444 


174532 




MOV 


anriS .WORK 




0'- 4 352 


00456/ 


005466 




ER20I 


JSR 


X5f STAER 












i##»#wrdi»oisk 


CflMTRDL STATUS 


REG. AT THE TIME OF TME FRRoR *«*« 


0/14356 


000660 








BR 


SPIRAL 




'4360 


k^22767 


052525 


011146 


SPIL3J 


CMP 


#52525, inBUF 


ICMP ADDR DAR 3777 


'4366 


001414 








BEQ 


CMPXl 


JCOMPARE SECOND WORD 


0'.M370 


012767 


000021 


174470 




MOV 


#21iERC0UNT 


ISETUP ERROR COUNT 


M376 


1316767 


011132 


174500 




MOV 


INBUFiWORK 


J INCORRECT DATA 


004404 


i;il2767 


052525 


174474 




MOV 


#52529, WORKl 


JCORHECT DATA 


0^34412 


004567 


0i''5466 




ER21I 


JSR 


X5,STAER1 


JREPORT ADDR 377 HAE BAD DATA 



)»*»»WRd1 = THE data THAT SHOULD HAVE BEEN IN ADDR.' 3777»»*« 



PALXll 


V003 


29'»0CT- 


70 


0111 


PAGE 


14-1 












j»«*«WR02«ThE 


DATA READ FROM AODR, 3777#»«« 




000640 








BR 


SPIRAL 


JUOOP ON ERROR 


0'J4420 


022767 


092525 


011110 


CMPXU 


CMP 


#92529| INBUF*2 


;COMPARE NEXT WORP 


004426 


kJ014l4 








BEQ 


LPSPll 


jBRANCH IF DATA OK 


0^34430 


kJl2767 


000022 


174430 




MOV 


#22iERC0UNT 


jSeTUP ERROR COUNT 


0F4436 


012767 


05252!> 


174442 




MOV 


#92529, WORKl 


ICORRECT DATA 


0i'4444 


016767 


011066 


174432 




MOV 


INBUF*2iW0RK 


IDATA READ FROM ADDR0 TKl 


004452 


004567 


005426 




ER22I 


JSR 


X5,STAER1 


IREPORT ERROR 



0^^456 
0i^4460 
0i?4466 



000620 
332777 
001214 



0')4000 174312 



I»«««HRDl«THE 
j«##«W0R2»THE 

BR 

LPSPIll BIT 
BNE 



DATA THAT SHOULD BE IN AODRt OF TRACK 1 •••* 
DATA READ FROMAOOR,0 OF TRACK I •••• 
SPIRAL JLOOP ON ERROR 

#BITia,#»SR ILOOP ON TEST? 

SPIRAL JYES BIT H SET IN SR 



PALxll V003 



29-OCT-70 



0111 



PAGE 15 



SPIRAL TEST EXT, 



J 
I 
I 
I 
I 
I 

IWRITE TWO WORDS OF DATA 

ISTARTING WITH THE LAST ADDRESS OF TRACK0 

IDATA PATTERN ■ 25252 

ITHEN READ THE DATA DOING ONE WORD 



IX-FERS 



0:"4470 


k!)52777 


000400 


174316 


XSPIRAli 






0I2777 


000340 


17427S 


MOV 


0.'i4504 


012706 


001000 






MOV 


004510 


012767 


025252 


007016 




MOV 


0i.M5l6 


lr^l2767 


025252 


007012 




MOV 


0"4524 


012767 


0:30002 


174314 




MOV 


0''14532 


012767 


01353^ 


174316 




MOV 


a!M540 


005067 


174304 






CLR 


0!''^4544 


1)12767 


003777 


174300 




MOV 


0n4552 


104403 








WRITE 


00 4554 


105777 


174234 






TSTB 


0'4560 


100375 








BPL 


M562 


005777 


174226 






TST 


3'-4566 


100011 








BPL 


3:^4570 


017767 


174220 


174306 




MOV 


54576 


012767 


0-10023 


174262 




MOV 


'4604 


004567 


005234 




ER23I 


JSR 










|««»«WRDlaOlSK 


0:54610 


00072 7 








BR 


^' 4 6 1 2 


1 1 d K 1 jt 7 

K* ? 6 / 


17^23''' 




XISPILI 


DEC 


0:'46l6 


U12767 


003777 


174226 




MOV 


0'M624 


01276/ 


015534 


174224 




MOV 


-4632 


104405 








READ 


004634 


105777 


174154 






TSTB 


0':M640 


100375 








BPL 


05''4642 


005777 


174146 






TST 


'4646 


100^11 








BPL 


0'4650 


nl2767 


0:?0024 


174210 




MOV 


0.M656 


017767 


174132 


174220 




MOV 


'4664 


004567 


005154 




ER24J 


JSR 










i»«»«wrdi»oisk 


M670 


000677 








BR 


4672 


tJ22767 


025252 


010634 


X2SPILI 


CMP 


M700 


001414 








BEQ 


0>-M702 


012767 


000025 


174156 




MOV 


■4710 


k;1276/ 


025252 


174170 




MOV 


'4716 


016767 


006612 


174160 




MOV 


'4 724 


kl04567 


0-55154 




ER25I 


JSR 










I#«**WRd1*ThE 










I»«#«WRd2"ThE 


M730 


000657 








BR 


0''4732 


005267 


174114 




X3SPILI 


INC 



BIS #BITB,*DCS ICLEAR THE DISK 

#340,»CSR JLOCK UP PROCESSING 

ISET UP STACK 
ISET UP DATA WORD 1 



#1000iX6 
#25252, OUTBUF 



#25252, 0UTBUF*2 iSET UP DATA WORD 2 



#2iWR0CT 
#OUTBUriBUF 
TRACK 
#3777iDMA 

• DCS 
, "4 

• DCS 
XISPIL 
•DCS, WORK 
#23,ERC0UNT 
%5,STAER 



JSET up word COUNT 
I SIT UP CMA 
)SET UP DISK ADDR, 

IWRITE DATA 
ITEST FOR READY 
ICONTROL STILL BuSY 
ITEST FOR ERROR 
IBRANCH IF NO ERROR 

ISET UP ERROR COUNT 
IREPORT CONTROL ERROR 



I««#«WRd1=0ISK control STATUS REG, AT THE TIME OF THE ERROR *•*• 
XSPIRAL 
WRDCT 
#3777iOMA 
#INBUF,BUF 



|S|T UP FOR 1 WORD X-FER 
ISET UP DAR 
ISET UP CMA 
IREAD DAR 3777 
ITEST FOR NOT READY 
ICONTROL STILL BUSY 
ITEST FOR ERROR 
IBRANCH IF NO ERROR 
ISET UP ERROR COUNT 
IREPORT CONTROL REG 



• DCS 
, "4 
•DCS 
X2SP1L 
#24,ERC0UNT 
•DCS, WORK 
X5 , ST AER 

I»«»«WRd1»DISK control STATUS REG, AT THE TIME OF THE THE ERROR 
XSPIRAL ILOOP ON ERROR 

#25252, INBUF I IS ADDR 3777 CORRECT 
X33P1L IBRANCH IF NOT EQUAL 

#25,ERC0UNT ISET UP ERROR COUNT 

#25252, WORKl IGOOD DATA 
0UTBUF,W0RK lOATA DATA 

X5,STA|R1 IREPORT ERROR 



XSPIRAL 
DMA 



ILQOP ON ERROR 

ISCT UP TO READ ADDR 4000 



D A 1 V 1 1 
r n L A X i 


U0Ci!^ 
V Kl icf w 


9 n n r T a 


70 


034736 


104405 






« ffl 4 7 4 


105777 


i74n<50 




ni L-l 4 7 4 4 


100375 






00 4 746 


005777 


174042 




4752 


100/311 






0H4754 


£112767 


000026 


174104 


004762 


017767 


174026 


174114 


0LM770 


y04567 


01-35050 




0^^4774 


00063S 







0111 PAGE 19-1 
READ 

TSTb vocs 
BPl ,-4 
TST iDCS 
BPl X4SPIU 
MOV #26iERC0UNT 
MOV •DCS, WORK 

ER26I JSR X5,STAER 
I»»»*WRD1^DISK CONTROL, STATUS 
BR XSPIRAl 



IREAD DATA 
JTCST rOR READY 
ICONTROL STILL BUSy 
ITEST FOR ERROR 
IBRANCH IF NO ERROR 
ISET UP ERROR COUNT 
jREPORT CONTROL REG, 
IREPORT ERROR 
REG, AT THE TIME OF THE ERROR •••• 
ILOOP ON ERROR 



PALXll 


\/(903 


29-OCT- 


70 


0111 


PACE 


16 




Ti . : ^ 7 7 <i 


fyi 9 9 7 A 7 


M 9 O ? 
•7c9(> 


Oil OlR'^OI 


y d Qo T 1 1 






«9*I9R2 T UCII ir 
»c9c9C 1 1 INDUr 


015004 


i1014l4 








BEQ 




LPXSPIL 


' 5 6 


0127 0/ 


i:i f/i i;i i<)| «^ 7 


4 7 >l 01 K Q 




MOV 




#27,ERC0UNT 


.'' 5 1 4 


W 1 2 7 6 7 


02525!^ 


174064 




MOV 




#25252, WORKl 


0-:'5022 


i"i6767 


010506 


174054 




MOV 




INBUF»WORK 


ft ; WS /% m 

'5030 


004567 


C B M 

0^30510 




ER27I 


JSR 




X5,STAER1 










>»##»wroi»the 


DATA THAT SHOULl 










}##««WRD2»ThE 


DATA THAT WAS Rf 


0^'5034 


^00615 








BR 




XSPIRAL 


0.'5036 


032777 


004000 


173734 


L PXSPlLlBIT 




#BITll,»SR 


a?i5044 


ki01211 








BNE 




XSPIRAL 


■?) 5046 


005P67 


174000 




CLRREGI 


CL.R 




DMA 


0'15052 


ij05v'67 


173772 






clR 




TRACK 


5 5 o 




4 T A fli M Q 


4 7 f 7 AQ 
1/3/02 


DATAT 1 


MOV 




SWRDCTiWRDCT 


0;'5064 


1 1 2 7 6 7 


/1 5 4 


4 7 4 ffl A 
1 / 4000 




MOV 




#LDATiHROER 


0.'5072 


111 mn 


M 1/^ £71 1 


4 t tT (AO 
1/3 / »« 




MOV 




#340, •CSR 


0i.'5l00 




i c 3 ? 






JSR 




%5,PASEL 


'5104 


004567 


0'''1540 




loati 


JSR 




X5,0P0SEl 


0-5110 


032767 


040000 


173724 




BIT 




#BIT14,FlAG 


'■■1' '5116 


w 1 *»! 








BEQ 




SLH 


0''5i20 


tl2767 


013534 


173730 




MOV 




#OUTBUF,BUF 


15126 


104503 








WRITE 




*100 


1 5 1 3 


■» <5 7 7 7 

00 2/7/ 


,0 1 fc) 10 


4 7 7 A 9 

1 / 307< 




BIT 




#BIT9|»SR 


0''5l36 


e' 01 ''10 2 








BNE 




WRWA I T 


'5140 


000 f-^ 4 








lOT 






0H5142 


000404 








BR 




SLH 


• ■ 5144 


/J* <l A 7 7 7 
010/7 / 


•1 7 7 < 7 M 


4 7 7 A 1 cn 
1 / 3OOI0 


WRWAITI 


MOV 




rnlUni 1 T,*CS>" 


0.\5l52 


000001 








WAIT 






15154 


f'32767 


020000 


173660 


SLHI 


BIT 




#BIT13,FLAG 


0i''5l62 


0W1421 








BEQ 




ESH 


1. ■ 5 1 6 4 


k 12 76 / 


01O535 


4 7 7 A A A 

I /300«» 




MOV 




#0UTBUF,8UF 


0;''5l72 


012777 


000340 


173602 




MOV 




#340, 'CSR 


0»''5200 










wrcheck 


*100 


/ * C ^ rjt O 

' 520c 


ij ^ O 7 7 7 


W 3. 10 


4 7 7 R 7 1/1 

1 / «59 /»' 




BIT 




#BIT9f »SR 


0i''5210 


001002 








BNE 




WCWAIT 


0'.-52l2 


H00i;)04 








lOT 






0i^52l4 


000404 








BR 




esh 


" 3 <: X o 


w 1 A 7 7 7 


1 7 r< A 1 6 


1 / ^ V 


WCWAITI 


MOV 




PRIORITY, •CSR 


005224 


000^-101 








WAIT 






0^5226 


032767 


010000 


173606 


ESHI 


BIT 




#BIT12,FLAC 


005234 


001452 








BEQ 




REH 


005236 


01276/ 


015534 


173612 




MOV 




#INBuF,BuF 


'5244 


042767 


0^10003 


173570 




6IC 




#3, FLAG 



JCMP DATA 

IBRANCH IF DATA OK 

ISET UP ERROR COUNT 

I GOOD DATA 

IDATA DATA 

JREPORT ERROR 
BE IN ADDR. OF TRACK I •••• 
FROM ADDR, OF TRACK 1 

ILOOP ON ERROR 

ILOOP ON TEST? 

JYES BITll SET In SR, 

JCLEAR WORD ADDRESS 

JCLEAR TRACK ADDRESS 



jSETUP FOR HARD ERROR 

ILOCK UP PROCESSOR PRIORITY 

JSET UP DATA BUFFERS 

jSET UP DISK ADDRESS 

JTEST FOR WRITE 

J TEST FOR WRITE CHECK 

ISETUP OUTPUT BUFFER 

JWRITE WITH INT, ENABLED 

IFIND OUT HOW TO WAIT FOR INT 

IWAIT WITH WAIT INSTRUCTION 

IWAIT IN BACKGROUND TEST 



IWAIT FOR FLAG 

jTEST FOR WRITE CHECK 

ITEST FOR READ 

iSETUP OUTPUT Buffer 

IWRITE CHECK WITH INT, ENABLE 
JFINDQUT HOW TO WAIT FOR INT, 
»WAIT WITH WAIT INSTRUCTION 
IWAIT IN BACKGROUND TEST 



IWAIT FOR FLAG 
ITEST FOR READ 
ICHECK BUFFER 
ISETUP OUTPUT BUFFER 
ICLEAR RE-READ COUNT 



u, A * * 


y 003 


2 9 " C T " 


70 


1 11 


PAGE 


17 






0i2777 


000340 


173522 


DSKROj 


MOV 


#340,I*CSR 




0.1 52 60 


004567 


002674 






JSR 


X5|ZBUr 


ICLEAR BUFFER 


^5264 


00?267 


173552 






INC 


FLAG 




0i-'^5270 


10450$ 








READ 


«100 


IREAO * INT ENABLE 


0P5272 


03277/ 


0(J1000 


173500 




BIT 


#6|T9if»SR 


JFIND OUT HOW TO WAIT FOR INT, 


0P'5300 


001002 








BNE 


RDWA IT 


IWAIT WITH WAIT INSTRUCTION 


01^5302 


000004 








lOT 






0155304 


000404 








BR 


ELH 




005306 


016777 


173526 


173466 


RDWAITI 


MOV 


PRlORlTYifCSR 


JSET UP PRIORITY 


•0 VOX" 


000001 








WAIT 




IWAIT FOR FLAG 


[:i 5 3 1 6 


032777 


010000 


173454 


EUHI 


BIT 


#BIT12|»SR 




005324 


001002 








BNE 


aoro 


ICOMPARE OUTBUFFER TO INBUFFER 


1 5326 


004567 


002314 






JSR 


X5#C0MPARE 


005332 


004567 


002642 




AORD 1 


JSR 


X5i0VRFL0 


JTEST FOR EXTRA DATE BREAKS 


005336 

lU ✓ w w ^ 


016767 


173500 


173540 




MOV 


FLAGi WORK 


ICHECK DISK RE-READ COUNT 


005344 


042767 


177774 


173532 




BIC 


#l77774rW0RK 


IPO 3 RE«KEADS, 


005352 


t?22767 


000003 


173524 




CMP 


#3|W0RK 




005360 


001334 








BNE 


DSKRD 


IDO ANOTHER rE>READ 


0^)5362 


032777 


01^0400 


173410 


REHI 


BIT 


#B|T8itSR 




005370 


00123Z 








BNE 


DATAT 




0t35372 


004767 


001440 






JSR 


X7|0ISBUF 


IGO SET UP DISK BUFFER, 


iCl i^' i7 O / W 


1400642 

m V ^ (S> 








BR 


lDAT 




0k)5400 


005767 


173436 




MSTRI 


TST 


FLAG 




005404 


J,0000g 








BPL 


1*6 


lUNDER PROQRAM CONTROL 


3<^'5406 


000167 


000530 






JMP 


EXTPP 


lOPERATOR SELECTED PATTERN 


005412 


062767 


000002 


173434 




ADO 


#2iPATNU 


UNO PATTERN INDEX 


0W5420 


022767 


000044 


173426 




CMP 


#44,PATNU 




005426 


001213 






BNE 


DATAT 


INOT LAST PATTERN EXIT 


0W5430 


005067 


173420 






CLR 


PATNU 


ILAST PATTERN EXIT 



pALXll V0I33 29"OCT"70 0|11 PACE 18 



J 

ITHIS IS A RANDOM DATA, RANDOM ADDRESS 

}AND RANDOM WORD COUNT 

I 

iwoRD Count can be equal to or less than 1000 words 



yl 5 4 3 4 


012767 


177000 


173440 


RANEX 1 


MOV 


#"1000|PASSC 




001(442 


012706 


001000 






MOV 


#10001 7(6 




0054 45 


042767 


001000 


173366 




BIG 


#BIT9iPLAG 




009454 


012767 


005742 


173416 




MOV 


#RANER|HRDER 


)SET UP FOR HARD ERROR 




016777 


17335ii 


173312 




MOV 


PRIORITY, PCSR 


ISIT PRIORITY TO LEVEL 5 


00R470 


012767 


000003 


173406 


WRLGI 


MOV 


#3, WORK 


IGENERATE RANDOM WORD 


000476 


012701 


013534 






MOV 


«OUTBUrfXl 




0^9502 


004567 


001746 






JSR 


X5, RANDOM 




005506 


fe)42767 


177000 


006020 




eic 


#177000, OUTBUF 


IMASK FOR WORD LENOTHilK 


005514 


001765 








BEQ 


WRL6 




0(^5516 


016767 


0^6012 


173322 




MOV 


OUTBUF,WR0CT 


ISIT UP WORD COUNT 


005524 


016767 


006006 


173320 




MOV 


0UTBU^*2,0MA 


ISET UP OAR 


0^^5532 


k566767 


173310 


173312 




ADD 


WROCTiDMA 




01^ 5540 


103753 








BCS 


WRLG 




005542 


016767 


0v'i5770 


173302 




MOV 


0UTBUF*2,DMA 




0i'5550 


042767 


177774 


005762 




6IC 


#177774, 0UTBUF*4 


005556 


016767 


005756 


173264 




MOV 


0UTBUF'*4, TRACK 


ISET UP DAE 


5 5 6 4 


016767 


173256 


173312 




MOV 


WRDCTiWORK 


IGENERATE RANDOM 


0:^5572 


0l270l 


013534 






MOV 


#0UTBUF,X1 


lOATA BUFFER 


0R5576 


004567 


01^1652 






JSR 


X5, RANDOM 




f ' 5602 


012767 


013534 


173246 




MOV 


#ouTBUr,Bur 




a 1.1 ■ A 1 


052777 


000400 


173176 




BIS 


#BtTei«ocs 


ICLEAR THE DISK 


171 i'^ •! A 1 6 


104503 








WRITE 


4'100 


JWRITE DATA 


' 5 6 2 


032777 


001000 


173152 




BIT 


#BlT9i»SR 




,1 5 5 2 6 


001002 








bne 


.*6 






1^1 4 

\(J V *J }U ~ 








lOT 






ii 5 6 3 2 


000404 








BR 


.*12 

PRIORITY, fCSR 




005634 


016777 


173200 


173140 




MOV 




■ ' 5642 


000{^01 








WAIT 






CI i ' ft A ^ 4 


1 04507 








WRCurCK 


«100 


IWRITE CHECK DATA 


0-5646 


(^32777 


001000 


173124 




BIT 


#BIT9i«iSR 




0P5654 


001002 








6N^ 


.♦6 




0C5656 


000004 








IDT 






0:-5660 


000404 








BR 


.*12 

PRIORITY, iCSR 




0-)5662 


016777 


173152 


173112 




MOV 




0^5670 


000301 








WAIT 






'5672 


012767 


015534 


173156 




MOV 


#INBUF#BUP 


ISET UP BUFFER 


0.^5700 


004567 


0t'2254 






JSR 


J(5,iBUF 


ICLEAR BUFFER AREA 


005704 


104505 








READ 


<^100 


IRIAD DATA 


3:15706 


032777 


0ai000 


173064 




BIT 


#BIT9i»SR 




0W5714 


001002 








BNE 


.*6 




0^^5716 


000004 








lOT 






0'^5720 


000404 








BR 


.♦12 




0f-'5722 


016777 


173112 


173052 




MOV 


PRIORITY, tCSR 




0(15730 


000001 








WAIT 






005732 


004567 


0«^'1710 






JSR 


X5, COMPARE 


ICOMPARE OUT BUFFER TO IN BUFFER 


0^5736 


00456/ 


0W223O 






JSR 


X9»0VRFL0 


ITEST FOR IXTRA DATA BREAKS 


0'.i5742 


032767 


001000 


173072 


RANERt 


BIT 


#BIT9iFLA6 


ICHECK FOR ERROR 



PALXll 


V003 


29-OCl- 


70 


0111 


PACE IB 


-1 


0^5750 


001430 








BEQ 


EXRAX 


0)5752 


042767 


001000 


173062 




BIC 


#BIT9iFLAG 


005760 


004567 


0!14372 






JSR 


X5,C0NV 


"5764 


001f:52 








DMA 




!?|!i5766 


0i2771 








MESl 




0-5770 


000^706 








6 




fd 5172 


00456'/ 


0t^4360 






JSR 


XS.CONV 


a.'5776 


001050 








TRACK 




C9.i6000 


013005 








MESlA 




0-6002 










2 




0.^6004 


.10456/ 


0^ 4346 






JSR 


X5,C0NV 


'6010 


001(^46 








WRDCT 




0!'6012 


013P50 








MES3 




6014 


000^^04 








4 




0. 6016 


104001^ 








EMT*0 




3; 6020 


012755 








HE06 




6022 


wl3'i05 








MESlA 




'6024 


012771 








MESl 




0-6026 


wl3^'50 








ME53 




01' 6030 


177777 








-1 




6032 


005267 


173044 




EXRAXI 


INC 


PASSC 


0.-6036 


001214 








BNE 


WRLG 


0''6040 


032777 


14000 


172732 




BIT 


#BITHi*SR 


0^6046 


001402 








BEQ 


.♦6 


'6050 


000167 


177360 






JMP 


RANEX 



IHAVE WE DONE IT 1000 TIMES 
)BRANCH IF NO 
ILOOP ON TEST 
JBRANCH IF YES 



PALXii va03 



29'.OCT«70 



0111 



PACE 19 



I 

ICHECK FOR MUUTI DISK MODE 

MF IN MULTI OISK MOOe REPORT "END" 

IIP LAST DISK ON SYSTEM HAS BEEN 

lEXERCISEDi 

I 

i 



0^6054 


k.^05P67 


172772 






CLR 


DMA 






005^^67 


172764 






CLR 


TRACK 




006064 


1^32767 


0^4000 


172750 




BIT 


#BIT1X|FLAQ 


I ARE Wl IN MULTI OlSK MODE 


0>?6072 


001416 








BEQ 


REPQEN 


IREPORT "END" 


'6074 


016767 


172742 


173002 




MOV 


FLAG, WORK 


IWHAT DISK ARE WE ON 


0^6102 


042767 


177743 


172774 




BIC 


#177743#W0RK 


MP LAST DISK ON SYSTEM 


6110 


026767 


17277? 


172760 




CMP 


WORKiOSKNOR 


IREPORT END 


0"'6116 


t501404 








BEQ 


REPOEN 


JREPORT "END" LAST DISK 


6l20 


062767 


0.'0004 


172714 




ADO 


#4, FLAG 


1 INC, DISK NO, 


6126 


000405 








BR 


EXTPP 


lEXERClSE DISK 


0.'6130 


104^^01 






REPOENI 


EMT 


♦ 1 




'6132 


013527 








END 




JREPORT END OF PASS 


6134 


042767 


0^0034 


172700 




BIC 


#34,FLAG 




0' 6142 


000167 


173522 




EXTPPi 


JMP 


ADTST 


J RECYCLE 



I 

lENTER DISK HANDLER BY THE TRAP INSTRUCTION 
JARGUMEnT To trap instruction is TWO ORDER 
IBYTE OF THE CONTROL REGISTER, 
I 



0.'6i46 


016709 


172654 


DISKI 


MOV 


OBRiX? 


JSET UP TO LOAD DISK REG 


0.'''6152 


016745 


172672 




MOV 


TRACKi-(5) 


ILQaD TRACK NUMBER 


0>^6l56 


01676/ 


172660 


172720 


MOV 


FLAG, WORK 


ISET UP DISK NO. 

IMASK FORM PROGRAM FLAG 


0-'6l64 


042767 


177743 


172712 


BIC 


#177743, WORK 


^6172 


056715 


172706 




BIS 


WORK, (9) 


ILOAO UNIT INTO DAE 


016176 


016745 


172650 




MOV 


DMA»"{5) 


ILOAD WORD ADDRESS 


0^6202 


016745 


172650 




MOV 


BUr,*(5) 


ISET UP CURRENT ADDRESS 


0-^6206 


W16745 


172634 




MOV 


WRDCTi"(5) 


ILOAO WORD COUNT 


0-^6212 


005115 






COM 


(5) 


ISET UP TWO'S COMPLEMENT 


0.^6214 


005215 






INC 


(5) 




0J6216 


011604 






MOV 


(6) ,%4 




0'^6220 


;U4467 


172660 




MOV 


-(4) , WORK 


1 


0^6224 


042767 


177600 


172652 


BIC 


#177600, WORK 


IMASK FUNCTION BITS 


0/6232 


016749 


172646 




MOV 


WORK, "(5) 


ILOAD FUNCTION REG, 


0i 6236 


000002 






RTI 




IRETURN FROM TRAP 



RFlt DISK INTERRUPT HANDLER 
ROUTINE CONTINUES ON ERRORS 



0^6240 042777 000020 172534 DKINTI BIC 

TST 
BPL 



006246 005777 172542 
0"'6252 100162 
0-56254 052767 001000 172560 



BIS 



#BlT4i»CSR 

• DCS 

INTEXT 

#BIT9iFLAG 



ICLEAR TRACE BIT 
I TEST FOR ERROR 
IBRANCH IF NO ERROR 
ISET ERROR BIT 



PALXll 


V003 


29"0CT- 


70 0111 
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-1 




0t'6262 


017767 


172536 


172614 


MOV 


»DAE|WORK 


IREPORT ERROR 


0P6270 


042767 


177700 


172606 


BIC 


#1777I«0,WORK 


JMASK ADDRESS EXTi 


0t'6276 


004567 


004054 




JSR 


X5,C0NV 


ICONVERT TO ASCI! 


0"i6302 


001104 






WORK 






006304 


013005 






MESIA 






0^6306 


kj00002 






2 






0'^6310 


104-^01 






EMT*1 






0: 6312 


012667 






HED2 






0^63X4 


017767 


172474 


172562 


MOV 


•DCS, WORK 


;TEST FOR READ 


0f'6322 


042767 


177770 


172554 


BIC 


#177770, WORK 




0!-6330 


022767 


000004 


172546 


CMP 


#4, WORK 




04^6336 


00lsn5 






BNE 


DEUMES 


MF READING REPORT 


006340 


016767 


172476 


172536 


MOV 


FLAG, WORK 




006346 


042767 


177774 


172530 


BIC 


#177774, WORK 




0'i6354 


004567 


003776 




JSR 


X5,C0NV 




0^6360 


001104 






WORK 






0'.^6362 


013221 






MES13 






006364 


000f;0l 






1 






0tl6366 


104001 






EMT*l 






3C16370 


013221 






MES13 







paL'xii 


V003 


29-OCT 


0i'6372 


017767 


172424 


00(400 


005367 


172500 




004567 


0^13746 


006410 


001104 




006412 


012771 




0P)6414 


000006 




006416 


104000 




0(')6420 


01300& 




0^6422 


012771 




006424 


177777 




0(16426 


017767 


172362 


0('6434 


k)04567 


003716 


0>'6440 


0^1104 


0'16442 


015015 




0^^6444 


000(^06 




006446 


104001 




'36450 


013015 




006452 


032777 


040000 


0>i6460 


001435 




0v;6462 


317767 


172336 


0'-6470 


000367 


172410 


56474 


042767 


177400 


0.'-'6502 


004567 


003650 


006506 


001104 




J6510 


013031 




'6512 


000003 




'6514 


104000 




0i'65l6 


012736 




0fi6520 


013031 




006522 


177777 




0''6524 


052777 


000400 


01-653? 


012706 


001000 


'6536 


03277/ 


0'^j2000 


'6544 


001401 




0-6546 


000000 




'6550 


00017^ 


172324 


0' 6554 


005777 


172236 


'6560 


001417 




0i'6562 


032777 


001000 


'6570 


001402 




'6572 


162716 


000002 


0'6576 


1)32777 


0^2000 


05^660'' 


(301401 




0''6606 


000000 




'6610 


052777 


000001 


"66l6 


000002 




0"6620 


1)32777 


020000 


0'?6626 


001401 




'6630 


000000 




16632 


032777 


001000 


0-^ 66'»0 


00100S 




0^6642 


012706 


000774 



0111 



PAGE 20 



MOV 


•DAR»WORK 


ISIT UP LOWER 16 BITS OF AODR, 


DEC 


WORK 




JSR 


%5,C0NV 


ICONVERT To ASCII 


WORK 






6 






EMT*0 






MESlA 






MESl 






-1 






MOV 


fOCSiWORK 


JSHT UP STATUS 


JSR 


X5|C0NV 




WORK 






MES2 
6 






t n 1 * i 






MES2 






BIT 


*BIT14,»DC8 


ITEST roR HARD ERROR 


BEO 


SOFTER 


100 AND CONTINUE SOFT ERROR 


MOV 


•DAE. WORK 


IFCTCH ERROR EXT, BJTS 


SWAB 


WORK 




BIG 


*177400|WORK 




JSR 


X5,C0NV 


ICONVERT TO ASCII 


WORK 






MES2A 
3 






EMT+0 






HED5A 






MES2A 






»1 






BIS 


#BIT8ifDCS 


ICLEAR THE DISK 


MOV 


#X000iX6 




BIT 


#BIT10|»SR 


IHALT ON ERROR 


6EQ 


.*4 




HALT 




lYES HALT BIT 10 SET IN SR 


JMP 


•HROER 


lExiT HARD ERROR 


TST 


• WC 


jCHECK FOR X-FER DONE 


BEQ 


INTEXT 


;EXIT FROM ROUTINE 


BIT 


#BlT9i*SR 




BEQ 


.*6 




SUB 


#2,(6) 


IX-FER NOT DONE SET UP FOR RETURN 


BIT 


#BIT10,»SR 


IHALT ON ERROR 


BEQ 


,*4 




HALT 




lYES HALT BIT10 SET IN SR 


BIS 


#BIT0ifDCS 


ISET GO AND CONTINUE 


RTl 




IRITURN TO WAIT iNSTRi 


BIT 


*BIT13,»SR 


IHALT ON COMPLETION FLAG 


BEQ 


,*4 




HALT 




lYES BIT 13 SET IN SR HALT 


BIT 


#BIT9i»SR 




BNE 






MOV 


#774,3116 


IRESET STACK 
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I 
1 

I 
I 

IROUTINE TO SET UP DAR AND DAE 











IFROM Sr and 


CONVERSATION 




u32777 






lENTER 


FROM 


JSR XSiOPDSEL 




0t^'0200 


172122 


OPDSEUI 


BIT 


#BlT7|i)SR 


0-H656 


001?)0l 








BNC 


.*4 


0"!6660 


000205 








RTS 


X5 


0^6662 


H17767 


172112 


172214 




MOV 


»SRiWORK 


0-6670 


(y06t'6 7 


172210 






ROR 


WORK 


^1 '6674 


006067 


172204 






ROR 


WORK 


!^'!6700 


fe506?'67 


172200 






ROR 


WORK 


0'6704 


006067 


172174 






ROR 


WORK 


0'J6710 


006067 


172170 






ROR 


WORK 


6714 


042767 


177774 


172162 




BIC 


#177774, WORK 


"'6722 


P16767 


172156 


172120 




MOV 


WORK, TRACK 


0ti6730 


017767 


172044 


172146 




MOV 


»SR,WORK 


'6736 


006167 


172142 






ROL 


WORK 


0.''6742 


006167 


172136 






ROL 


WORK 


0.'6746 


006167 


172132 






ROU 


WORK 


0-6752 


k"0616 7 


172126 






ROL 


WORK 


0!'6756 


006167 


172122 






ROL 


WORK 


16762 


006167 


172116 






ROL 


WORK 


0' 6766 


006167 


172112 






ROL 


WORK 


0"6772 


006167 


172106 






ROL 


WORK 


0.^6776 


006167 


172102 






ROL 


WORK 


17002 


006167 


172076 






ROL 


WORK 


0:'7006 


id'06167 


172072 






ROL 


WORK 


0- 7012 


042767 


mini 


172064 




BIC 


#003777, WORK 


7020 


042767 


174000 


172024 




BIC 


#174000, DMA 


0.^7026 


066767 


172052 


172016 




ADD 


WORK, DMA 


7034 


000205 








RTS 


%5 



IDOES SR CONTAIN TRACK # 



IFETCH SR 



}MASK AIGL ORDER 2 BITS 



|SET UP LOWER 16 BITS OF ADDRESS 
lEXIT 
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V003 


29-OCT- 


70 


0111 
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1 

»ROUTINE 


: TO SETUP DISK BUFFERS 












lADD WORD COUNT 


TO STARTING DISK ADDRESSES 










1 CAMP ARF 


: CALCULATED ADQRESS TO 


TFRMINATING ADDRC<;S 


007036 


066767 


172004 


172006 


DISBUF 1 


ADD 


WRDCTiDMA 


lADD WORD COUNT TO LOWER 16 BITS 




103002 








BCC 


COMDAR 




0f-i704 6 


005267 


171776 






INC 


TRACK 


lOVERFLOW ADD ONE TO TRACK 


007052 


026777 


171774 


171742 


COMDAR 1 

w V * ' W W f» ■ 


CMP 


DMAiODAR 


ICOMPARE LOWER 16 BITS 


007060 


00140^^ 








BEQ 


CMOAE 




007052 


052767 


000100 


171752 




BIS 


#BIT6iFLAG 




007070 


017767 


171730 


172010 


] 

cmdae; i 


MOV 


»OAE,WORKi 


JFETCH EXT, ADDR BITS 


0.'7076 


042767 


177740 


172002 




BIG 


#177740, WORKl 


IMASK TRACK AND DISK ADDR 


007104 


016767 


171732 


171772 




MOV 


FLAGiWORK 


ISET UP DISK ADDRESS 


0^7112 


042767 


177743 


171764 




BIC 


#177743, WORK 




007120 


066767 


171724 


171756 




ADO 


TRACKiWORK 




Li 7 1 2 6 


042767 


177740 


171750 




BIC 


#177740, WORK 




« 7 1 3 4 


026767 


171744 


171744 




CMP 


WORK, WORKl 


lARF THFV fQUAL 


;i 7 1 4 2 


001066 








BNE 


ERAOR 


ICRROR IN DAE ^EG 


007144 


105767 


171672 






TSTb 


FLAG 


iCHECK FOR LAST DISK BUFFER 


007150 


100019 








BPU 


extcme 




'O ■ f X ^ 


005067 


171674 






CLR 


DMA 


ICLEAR LOWfR 16 BITS 


007156 


005067 


171666 






clR 


TRACK 


J CLEAR EXT, ADDR, BITS, 


007162 


042767 


00020^ 


171652 




BIC 


#200, FLAG 


0t^7l70 


062716 


000002 






ADD 


#2.(6) 


J INC STOCK PO INTER 


0'.?I7174 


016767 


171664 


171644 




MOV 


SWRDCT,WRDCT 




0.^7202 


00044^ 








BR 


EXTDR 


;exit 


0^7204 


042767 


177774 


l7i674 


EXTCMEI 


BIC 


#177774, WORKl 


(MASK EXTi track BITS 


0''7212 


022767 


000003 


171666 




CMP 


«3,W0F^K1 


iCQMPARF FnR LAST TRACK 


01)7220 


001021 








BNE 


AKH 


INOT LAST TRACK EXIT 


J7222 


017767 


17157? 


171654 




MOV 


SiDAR.WORK 


jFETCH LOWER 16 BITS OF ADDRESS 


007230 


t>66767 


I7l6i2 


l7i646 




ADO 


WROCT»WORK 


IWILL DISK OVERFLOW 


007236 


103'''12 








BCC 


AKM 




037240 


0S2767 


000200 


171574 




BIS 


#200, FLAG 




0/17246 


017767 


171550 


171572 




MOV 


•DARiWRDCT 


IDISK WILL OVERFLOW 


.'1 7 2 5 4 


005167 


171566 






COM 


WRDCT 


iSET UP NEU word COUNT 


r » f c.v*J 


005267 


171562 






INC 


WROCT 


IMAKE TWO'S COMP, 


007264 


017767 


171534 


171556 


M '^ n • 


MOV 


•DAE, TRACK 




00 7272 


042767 


177774 


I7l550 




BIC 


#177774, TRACK 


IMASK TRACw bits 


. ! 7300 


017767 


171516 


171544 




MOV 


•OAR, DMA 


iLOWER 16 BITS OT ADDRESS 


0/7306 


032767 


000100 


171526 




BIT 


#BIT6f FLAG 


(REPORT ADDRESS ERROR 


0i'73l4 


001^01 








BNE 


.♦4 




0k 7316 


fe!00207 






PXTDR 1 


RTS 


%7 


1 EX I T 


r» 7 Tt O i?l 


tO " K V ' 


V W V W 




ERAOR 1 


JSR 


X5,C0NV 


(CONVERT DMA REG COUNT TO ASCII 


' 7 3 2 4 


001 1/1 52 








DMA 








012771 








MESl 






i7| 7 3 3 


'7! 6 








6 






v: 7 3 3 2 


004567 


003020 






JSR 


X5,C0NV 


(CONVERT TRACK REG COUNT TO ASCII 


0V'7336 


001106 








WORKl 






i?li:'7340 


013^05 








MESIA 






0-^7342 


000M02 








2 




(REPORT ERROR 


734 4 


104000 








EMT 




^'7346 


01272W 








HED4 







PALXll V003 29"OCT"'70 0IH 

007350 013005 

0ti7352 012771 

0.^7354 177777 

007356 042767 000100 171456 

0073^4 005067 171462 

007370 005067 171454 

007374 032777 002000 I7l376 

007402 001401 

007404 000000 

007406 000207 



PACE 22"1 

ME51A 

MESl 

-1 

BIC #B|T6iriAC 

CIR DMA 

CLR TRACK 

BIT #BIT10|»8R 

BEQ ,44 

HAUT 

RTS X7 



lOISK AODRCSS IRROR RE-START PROQi 

IHALT ON ERROR 

ISWITCH 10 SET IN 8R HALT 



PALXll 



V003 



29-OCT-70 



0111 PAGE 29 



ROUTINE TO SELECT DATA 



ENTER FROM jSR %5 PA8EL 



01^7410 


W16700 


171440 


PASELI 


MOV 


PATNUiX0 


0-^7414 


016767 


171426 


171462 


MOV 


WROCTiWORK 


0!''7422 


012701 


013534 




MOV 


iOUTBUr iXl 


0?'7426 


022700 


000042 




CMP 


#421X0 


007432 


001410 






BEO 


RANDOM 


007434 


016021 


007604 


FILDATI 


MOV 


PAT0(0} id)* 


007440 


005367 


171440 




DEC 


WORK 


7 4 4 4 


005767 


171434 




TST 


WORK 


007450 


001371 






BNE 


FlLDAT 


007452 


00020!^ 






RTS 


X9 








IRANDOM 
1 


DATA 










(RANOOH 


DATA 


GENERATOR SUBRO 


007454 


016700 


0i.'i012!? 


RANDOMI 


MOV 


LONUMiXO 


J ' 7 4 6 


016704 


000116 




MOV 


HINUMf X4 


"7464 


i£}12703 


000007 




MOV 


#7iX3 


007470 


005^)0<J 






CLR 


X2 


0.57472 


006300 




SHIFT 1 


ASL 


X0 


^ 74 74 


006104 






ROl 


X4 


0i^7476 


006102 






ROL 


X2 


'7500 


005309 






DEC 


X3 


3 " 7502 


H 1 3 7 3 






BNE 


SHIFT 


■■ ■ 7 5 4 


tl 6 6 7 


000070 




ADO 


LONUMiX0 


'3 1-'' 7510 


005504 






AOC 


X4 


0P7512 


066704 


0VT0064 




ADD 


HINUMiX4 


0"7516 


305502 






AOC 


X2 


0' 7520 


062700 


0t'l057 




AOQ 


#1057»X0 


0*^7524 


005504 






ADC 


X4 


0t 7526 


005502 






AOC 


X2 


007530 


'J62704 


047401 




ADD 


#4740lfX4 


0-/7534 


005502 






ADC 


X2 


0)7536 


062702 


01^0006 




ADO 


#6|X2 


0^^7542 


060200 






ADD 


X2iX0 


007544 


005504 






AOC 


X4 


0W7546 


010067 


0U0026 




MOV 


X0iLONUM 


0"'7552 


010021 






MOV 


X0I (D* 


0^^7554 


005367 


171324 




DEC 


WORK 


0^:^7560 


001406 




BEQ 


EXGEN 


0^^7562 


010467 


000014 




MOV 


X4|HINUM 



RNS FOR TEST 



ISET UP PATTERN NUMBER 

ISKT UP WORK 

JLOC. OF OUTBUFFER 

ITEST FOR RANDOM DATA NUMBER 

IQO GENERATE RANDOM DATA 

IFILI BUFFER 

lOeC. WORK COUNT 

ITIST FOR LAST WqRK 

ILOAD NEXT WORD 

jBUFFER FULL 



ISET UP R0 WITH 5 DIGITS LOW 
ISET UP Rl WITH 5 DIGITS HIGH 
ISET UP SHIFT COUNT 
ICLEAR R2 

ISHIFT R0 LEFT AND 

IROTATE CARRY INTO LSB OF Rl INTO 

IROTATE CARRY OUT OF Rl InTO R2 

lOECREMENT R3 

ICONTINUE SHIFT LOOP 

JAODN IN NUMBER TO MAKE X 12? 

JPROPOGATE CARRY 

lAODN IN NUMBER TO MAKE X 129 

IPROPOGATE CARRY 

lAODN LOW CONSTANT 

IPROPOQATE CARRIES 

IPROPOGATE AGAN 

lAODN HIGH CONSTANT 

IPROPOGATE CARRY 

lAODN HIGHEST CONSTANT 

IREPRIME R0 WITH HIGH DIGIT 

IPROPOGATE CARRY 

IPUT R0 BACK IN lONUM 

JHOLD LONUM FOR PROGRAM 



IPUT Rl BACK IN HlNUM 



PALXll V003 29-OCT-70 
007604 



007604 
007606 
007610 
0i^76l2 

0^^7616 
0^^7620 
0W7622 
007624 
007626 
0i'7630 
0(^7632 
02)7634 
0f?7636 
0^^7640 
007642 
007644 



000000 

177777 
134510 
043267 
100000 
107070 
070707 
0!9252!^ 
125252 
177737 
004102 
136363 
063636 
000001 
100005 
000520 
03030^ 



0111 



I 



PAGE 24 



.EVEN 



JRFII DATA PATTERNS 



I 

PAT0I 
PATH 
PAT2I 
PAT3I 
PAT4I 
PAT5I 
PAT6I 
PAT7I 
PAT10I 
PATllI 
PAT12I 
PAT13I 
PAT14I 
PAT15I 
PAT16I 
PAT17I 
PAT20I 
IPAT21 
I 
I 
1 

lOATA Comparison routine 

I IF AN error occurs BETWEEN THE OUT-BUrFER AND 
ITHE IN-BUFFER AN ERROR WILL B| REPORTED IN THE 
IFOLIQWING MANNER 

jOATA IrROR XX DAE XXXXXX OAR XXXXXX GOOD DATA XXXXXX BAD DATA 
» 
I 





177777 
134510 
043267 
100000 
107070 
070707 
058529 
13^252 
177737 
004102 
136363 
06363i 
000001 
100005 
000520 
030303 
RANDOM DATA 



0^ 7646 


6)05067 


171236 




COMPARIlCLR 


W0RK2 


JWORD COUNT 


0t:7652 


012767 


013534 


171210 




MOV 


KlOUTBUFiSAVE 


ISET UP OUTBUFFER POINTER 


0'^7660 


012767 


015534 


171204 




MOV 


#INBUF,SAV1 


ISET UP IN BUFFER POINTER 


0i57666 


027777 


171176 


171176 


WRDCMPI 


CMP 


•SAVEi^SAVl 


icoMPARE Buffers 


0^7674 


001i^l6 








BNE 


WDERR 


IWORD IN ERROR 


007676 


005267 


171206 




WROINCI 


INC 


W0RK2 


1*1 WORD COUNT 


0P7702 


026767 


171140 


171200 




CMP 


WROCTiWORKS 


lis COMPLETE BUFFER CHECKED 


007710 


001407 








BEQ 


ADAM 


lEXlT ROUTINE 


007712 


062767 


000002 


171150 




ADO 


#2, SAVE 


007720 


062767 


000002 


171144 




ADD 


iti2iSAVl 




007726 


000757 








BR 


WRDCMP 


JCOMPARE NEXT WORD 


0ti7730 


00020!!* 






ADAMI 


RT8 


X5 


lEXIT THIS ROUTINE 



PALXll 



29-OCT-70 



0111 



PAGE Z3-1 



0(^7566 010421 

007570 005367 171310 

007574 001327 

007576 000205 

007600 000000 

007602 000000 



MOV X4,(l)^ 

DEC WORK 

BNE RANDOM 

EXCENI RTS X5 

tONUMi 

HINUMI 



JHOLD HINUM FOR PROGRAM 



IRETURN T PROGRAM 
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0/57732 


0S2767 


0131000 


171102 WDERRI 


BIS 


007740 


016767 


171106 


171136 


MOV 


0C^7746 


016767 


171076 


171132 


MOV 


0^)7754 


066767 


171130 


171122 


ADD 


0''7762 


103002 






BCC 


0V17764 


005267 


171116 




INC 


0''17770 


016767 


171046 


171114 


MOV 


01)7776 


t)42767 


17774'> 


171106 


BIC 


010004 


056767 


171102 


171074 


BIS 


010012 


004567 


032340 




JSR 


010016 


001104 






WORK 


010020 


012771 






MESl 


010022 


000006 






6 


010024 


004567 


0*12326 




JSR 


010030 


001106 






WORKl 


010032 


01300^ 






MESIA 


010034 


000002 






2 


010036 


017767 


171026 


171040 


MOV 


010044 


004567 


002306 




JSR 


010050 


001104 




WORK 


010052 


0i3l06 






MESS 


010054 


000306 






6 


010056 


017767 


171010 


171020 


MOV 


010064 


004567 


0i'2266 




JSR 


010070 


(501104 






WORK 


010072 


!J13126 






MES6 


010074 


000^'i06 






6 


010076 


016767 


17074W 


171000 


MOV 


010104 


042767 


177774 


170772 


BIC 


010112 


J04567 


0V12240 




JSR 


010116 


J01104 






WORK 


010120 


013221 






MES13 


010122 


000(^01 






1 


010124 


104300 






EMT 


010126 


£512654 






HEDl 


010130 


013221 






MES13 


310132 


013005 






MESlA 


010134 


012771 






MESl 


010136 


013106 






MES5 


310140 


H13126 






MES6 


310142 


177777 






"1 


010144 


w32777 


0i^52000 


170626 


BIT 


010152 


vj0140l 






BEQ 


010154 


000f"00 






HALT 


010156 


1300647 






BR 



#BIT9»rUAG 

DMAiWORK 

TRACKiWORKl 

W0RK2iW0RK 

,*6 

WORKl 

FLAG,W0Rk3 
#177743, W0RK3 
W0RK3, WORKl 
X5,C0NV 



jSET ERROR BIT 

IFETCH STARTING DISK ADDR 

I 

ICALCUUATE FAIUING ADOR 
ISHOUUO DAE BE INCREMENTED 



icoNVERT Word ador to ascii 



X5,C0NV 



iConvert Track ador to ascii 



SSAVEiWOrK IFETCH GOOD DATA 

X5,C0NV ICONVERT GOOD DATA TO ASCII 



•SAVliWORK 
X5,C0NV 



IFITCH BAD DATA 
JCONVERT TO ASCII 



FLAG, WORK 
#177774, WORK 
J45,CONV 



IWHICH READ THE 

IErROR OCCURRED ON 



*0 



JPRINT MESSAGE 



#BIT10,*SR IHALT ON ErrQR 

.*4 

JYES HALT BIT 10 SET IN SR 
WROINC iGO COMPARE NEXT WORD 



PAi y 11 
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1 

IROUTINE TO ZERO 


DATA INPUT BUFFER 








iZERo Buffer before reading 
J 




010160 


yl2704 


015534 


1 

ZBUFI MOV 


#INBUF,X4 


JFETCH START OF INBUFFER 


010164 




017534 


NZUFI CMP 


X4,#iNBUr*2000 


MS THE ROUTINE COMPLETE 


010170 


001v^0l 




6NE 


CLEAR 


IZERO NEXT WORD 


010172 


000205 




RTS 


%3 


lEXIT ROUTINE 


010174 


005ri24 




CLEARI CLR 


(4>* 


ICLEAR THE WORD 


010176 


000772 




BR 


NZUF 










IROUTINE TO TEST 


FOR ADDITIONAL 


DATA TRANSFERS 








lANY DATA TRANSFERRED AFTER WORD 


COUNT OVERFLOW IS AN ERR 


010200 


016704 


17064;^ 


1 

OVRFLOl MOV 


WRDCT«X4 


lADD WORD COUNT 


'-110204 


^^6104 




ROL 


X4 




!H0206 


1162704 


015534 


ADO 


#IN8uF|X4 




010212 


0iJ042 7 


1.^17534 


CHWRDJ CMP 


X4,#INBUF*2000 


MS TEST COMPLETE 


010216 


001^101 




BNE 


CKNEX 


ICHECK NEXT WORD 


010220 


1100205 




RTS 


%5 


ITEST IS COMPLETE 


310222 


005724 




CKNEXI TST 


(4)* 


ITEST FOR ZERO WqRD 


010224 


J01772 




BEQ 


CHWRD 


IWORD IS ZERO 


010226 


C52767 


0' 1000 170606 


BIS 


#BIT9rrLAG 


ISET ERROR BIT 


010234 


013467 


0.^2176 


MOV 


X4, ACNVX 




010240 


162767 


0':-000ii; 002170 


SUB 


#2, ACNVX 




310246 


004567 


0;-''2l04 


JSR 


X5,C0NV 


ICONVERT 1 OCTAL TO ASCII 


010252 


VJ12436 




ACNVX 




lADORESS 


010254 


ol3n65 




MES4 






010256 


000»'06 




6 






010260 


t;l0467 


0''2152 


MOV 


%4, ACNVX 




010264 


162767 


0/0002 002144 


SuB 


#2i ACNVX 




010272 


017767 


2140 002136 


MOV 


9ACNVX, ACNVX 




010300 


1-0456/' 


12052 


JSR 


X5iC0NV 


ICONVEHT OCTAL To ASCII 


010304 


1^2436 




ACNVX 




IDATA 


fn0306 


i:)13l26 




MES6 






010310 


000006 




6 






010312 


104000 




EMT 


+ 


ICALL TYPE OUT ROUTINE 


010314 


012704 




HED3 






010316 


ia3'"65 




MES4 






010320 


H13126 




MES6 






310322 


177777 




«l 






010324 


000732 




BR 


CHWRD 


IFETCH NEXT WORD 



PALXll 


V003 


29''0CT« 


70 




1^52777 


0/10400 


170460 


010334 


012777 


0^0340 


170440 


010342 


IJ12706 


0!^1000 




010346 


012767 


010420 


167430 


010354 


1)12767 


0?034W 


167424 


010362 


1)12767 


017446 


170500 


010370 


(J05777 


170474 




1<310374 


^'22767 


177446 


170466 


/V J, iC t (t 


- JL ■ ' f fit 






(^10404 


l^00!.100 






010406 


t. 00404 






310410 


i;6276/ 


020001^ 


170452 


010416 


U00764 






'J10420 


V112767 


w 0006 


167356 


010426 


t-T05i67 


167354 




010432 


iil2706 


0»:i000 




0104 36 


162767 


020000 


170424 


!^10444 


162767 


013534 


170416 


010452 


;:il6767 


170412 


170404 


010460 


U06 •i6/' 


170400 




010464 


I 1676/ 


170374 


170354 


010472 


'U2777 


0W0200 


170302 


"II0500 


v}12767 


0I05I6 


170372 


010506 


i305.'i67 


170340 




^10512 


y05;^67 


170332 




010516 


016767 


170324 


170360 


010524 


012701 


013534 




010530 


004567 


176720 




1^10534 


i^l2767 


013534 


170314 


010542 


104503 






010544 


cizn / 


0^'100W 


170226 


010552 


11 01 1 02 






010554 


000004 






010556 


000404 






010560 


1J1677/ 


170254 


170214 


010566 


0002101 






010570 


104507 






010572 


032777 


0k;i000 


170200 


010600 


001 '■"02 






010602 


000004 






010604 


000404 






010606 


016777 


170226 


170166 


010614 


000001 






010616 


004767 


176214 




010622 


000735 
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iextendeo memory exerciser 

ithe program determines how much memory 

ms on the system then it 

IGENERAtES a random buffer THAT SIZE 
lAND WRITES AND WRITE CHECKS THE DATA 



I 



EXTMENI 


BIS 


#BIT8i»DCS 


ICUEAR THE DISK 




MOV 


#340, •CSR 


aOCK UP PRIORITY LEVELS 




MOV 


#10001^6 






MOV 


#MAXREF,4 


>SET UP I/O BUS TRAP 




MOV 


#340,6 






MOV 


#17446, SAVE 


ISET UP FOR 4K 


EXREFI 


TST 


9SAVE 


JREFERENCE MEMORY 




CMP 


#177446, SAVE 


ITEST FOR GREATER THAN 28K 




BNE 


.*6 


»BRANCH IF LESS THAN 42K 




HALT 








BR 


maxref 


ILAST REFERENCE mAqE TO I/O REG, 




ADO 


#20000, SAVE 


)SET UP FOR NEXT MEMORY REF, 




BR 


exref 


IGO REFERENCE MEMORY 



I 

lENTER HERE WHEN I/O BUS ERROR OCCURS 
I 



MAXREF 1 


MOV 

CLR 
MOV 
SUB 


#6,4 
6 

#10001^6 
#20000, SAVE 


iRESTORE I/O BUS TRAP 
J 




SUB 


#OUTBUF,SAVE 


JSET UP NEW WORD COUNT 




MOV 


SAVE.SWRDCT 






ROR 


SWRDCT 






MOV 


SWRDCt,WRDCT 






MOV 


#BIT7i9CSR 


JSET UP PRIORITY LEVEL 




MOV 


#NEWBUF,HRDER 


ISET UP FOR HARD ERROR 




CLH 


DMA 






CLR 


TRACK 




NEWBUFI 


MOV 
MOV 


WROCTiWORK 
#0UTBUF,%1 


ISET UP FOR RANDOM BUFFER 




JSR 


%5, RANDOM 


INEW DATA BUFFER GENERATED 




MOV 


#OUTBUF,BUF 






WRITE*100 


IWRITE BUFFER 




BIT 


#BIT9ifi»SR 






BNE 


, *6 






lOT 








BR 


.*3,2 

PRIORITY, 9CSR 






MOV 






WAIT 








WRCHECK*100 


JWRITE CHECK DATA 




BIT 


#BIT9,^SR 






BNE 


,*6 






lOT 








BR 


.♦12 






MOV 


PRIORITY, 9CSR 






WAIT 








JSR 


%7,DlSBUF 


>SET UP NEW DISK BUFFER 




BR 


NEWBUF 


)G0 WRITE NEW BUFFER 
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BR NEWBuF-10 JOISK COMPLETE START AGAIN 
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J 

IBACKGROUND TEST FQR INTERRUPTS 



I 



010626 


012767 


010724 


167160 


XWAITli 


MOV 


#RTIXil4 


JSET UP TRACE TRAP 


010634 


005^167 


167156 






CLR 


16 




010640 


012767 


177000 


170226 




MOV 


#»1000,PASS 


{SET UP TIME BASE 


010646 


052777 


000020 


170126 




BIS 


#BIT4»^CSR 


jSET TRACE BIT 


010654 


005027 


0;}000li9 






CLR 


#0 




010660 


005267 


177772 




XINCW( 


INC 


XINCW-2 




010664 


105767 


177766 






TSTB 


XINCW''2 




010670 


100373 








BPL 


XINCW 




010672 


005267 


170176 






INC 


PASS 




010676 


001401 








BEQ 






010700 


000765 








BR 


XlNCW-4 












JREPORT 


BACKGROUND TEST TIMED 


OUT 


010702 


012777 


0(^0340 


170072 




MOV 


#340, ^CSR 




010710 


042777 


0i:'0020 


170064 




BIC 


#BlT4i«»CSR 


JCLEAR TRACE BIT 


010716 


104001 








EMT*1 






010720 


013231 








TIMO 






010722 


k;0000!^ 








HALT 






010724 


000'''02 






J 

RTIXI 


RTI 
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iRFii Power fail test "i 

I DISK ZERO 

J WRITE COMPLETE DISK WITH 125292 PATTERN 

1 REPORT "OK" 

JSTART WRITING THE SAME PATTERN 

JWHEN POWER FAIL OCCURS ABORT TRANSFER 

ISETUP NEW ENTRY POINT AND HALT 

I 

JPOWER UP AND WRITE CHECK THE DISK FOR ERRORS 
I 

,*»»ONLY ONE ERROR IS CONSIDERED ACCEPTABLE*** 



J 

J 



010726 


012706 


0^11001^ 




PFTll 


MOV 


#1000iX6 


JSET UP STACK 


010732 


004767 


0^10404 






JSR 


X7,P0WFAL 


IWRITE 125252 ON DISK 


010736 


052777 


0V0400 


170050 


PFWAT! 


BIS 


#BIT8i»DCS 


JCLEAR DISK 


010744 


H05i.i67 


170102 






CLR 


DMA 




010750 


fe'05:.)67 


170074 






CLR 


TRACK 




010754 


t!l2767 


010736 


170116 




MOV 


#pfwat,hrder 


ISET UP FOR HARD ERROR 


010762 


1U2767 


011120 

0^1034^ 


167034 




MOV 


#D0WNi24 


ISET UP POWER FAIL VEC. 


010770 


012767 


167030 




MOV 


#340,26 




010776 


104503 






MYBYWRI 


WRITE 


*iia0 




011000 


k?32777 


001000 


167772 




BIT 


#BIT9i#SR 




011006 


i?01v-02 








BNE 


,*6 




011010 


0001^104 








lOT 






f3ll0l2 


000404 








BR 


,*12 

PRIORITY, tCSR 




011014 


1-116777 


170020 


167760 




MOV 




01102? 


000 -'01 








WAIT 






311024 


004767 


176006 






JSR 


X7,DISBUF 


JSET UP NEW DISK BUFFER 


011030 


000762 








BR 


MYBYWR 




011032 


[500741 








BR 


PFWAT 





JROUTINE TO CHECK DATA AFTER POWER FAIL 



011034 


052777 


000400 


167752 


UPCHKI 


BIS 


#6ITei«DCS 


JCLEAR THE DISK 


i!)11042 


005067 


170004 






CLR 


DMA 




011046 


005^^67 


167776 






CLR 


TRACK 




011052 


012767 


011034 


170020 




MOV 


#upchk,hroer 


ISET UP FOR HARD ERROR 


311060 


104507 






CHKDATI 


wrcheck 


4100 




?!11062 


032777 


001000 


167710 




BIT 


#BIT9i»SR 




011070 


001C02 








BNE 


.*6 




011072 


000-104 








lOT 






011074 


000404 








BR 


.*12 




011076 


016777 


167736 


167676 




MOV 


PRIORITY, •CSR 




011104 


000.^!01 








WAIT 






011106 


004767 


175724 






USR 


X7,DISBUF 


JSCT UP NEW DISK BUFFER 


011112 


000762 








BR 


chkdat 




011114 


^00167 


177616 






JMP 


PFWAT 


ICO WAIT FOR ANOTHER 



JPOWER FAIL 
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I 

IPOWER DOWN ROUTINE 
lABORT DISK AND HAUT 



I 
I 



011120 


(52777 


0:'0400 


167666 


DOWN! 


BIS 


#BlT8i»DCS 


lABORT DISK 


011126 


til2767 


011136 


166670 




MOV 


#UPi24 


ISET POWER FAIL VECTOR 


011131 


I.' 00-':; 00 








HALT 






P111136 


t!l2767 


011120 


166660 


1 

UPl 


MOV 


#DQWNi24 




311144 


^12706 


0;-'1000 






MOV 


#10001^.6 




01115P) 


1)12767 


17732^ 


167726 




MOV 


#«300, ,WORK 


ISET UP TWENTY SECOND TIMER 




11 00 '■'^05 






TIMCNTI 


RESET 






011160 


L'05267 


167720 






INC 


WORK 


}*t TIMER 


'2)11164 


t)01374 








BNE 


timcnt 


JTWO SECONDS NOT UP GO WAIT 


5511166 


00167 


177642 






JMP 


UPCHK 


IGO CHECK DISK 



I 
I 



I 
I 

? 

IPOWER FAIL TEST #2 

iDisK Hero 

IWRITE COMPLETE DISK WITH 125292 PATTERN 
>REPORT "OK" 

JWRITE CHECK DISK AND WAIT FOR POWER FAIL 
IWHEN POWER COMES BACK WRITE CHECK DISK AGAIN 
lAND CHECK FOR ERRORS 
|»**N0 ERRORS SHOULD OCCUR,*** 

IdO not create ANOTHER POWER FAIL UNTIL 

ithe address register has completely cycled 
;through. 

J 



011172 


^'12706 


0/^100W 




PFT2I 


MOV 


#1000i%6 


JSET UP STACK 


011176 


0614767 


0P0140 






JSR 


X7,P0WFAL 


JWRITE 125252 ON DISK 


311202 


t305'i67 


167644 




PWRFLI 


CLR 


DMA 




011206 


005i^67 


167636 






CLR 


TRACK 




011212 


012767 


011202 


167660 




MOV 


#PWRFLiHRDER 


)SET UP HARD ERROR 


311220 


k'12767 


011272 

0i'!0340 


166576 




MOV 


#PWRDNi24 


ISET UP POWER FAIL VECV 


011226 


012767 


166572 




MOV 


11(340,26 


011234 


104507 






CHKDSKI 


whcheck 


4.100 




011236 




001000 


167534 




BIT 


#BIT9i9SR 




011244 


001'''02 








BNE 


.*6 




011246 


fc5 0i;'.:i04 








lOT 




IWAIT IN BACKGROUND 


011250 


lL.0k)404 








BR 


.n2 




011252 


016777 


167562 


167522 




MOV 


PRIORITY, »CSR 




011260 


000301 








WAIT 






011262 


004767 


175550 






JSR 


%7,DISbUF 


ICHECK NEXT BUFFER 


011266 


000762 








BR 


chkdsk 




011270 


000744 








BR 


PWRFL 
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I 

JROUTINE TO ABORT DISK DURING POWER FAIL 



I 



011272 


052777 


000400 


167514 


PWRDN 1 


BIS 


#BIT8i»DCS 


1 CLEAR THE DISK 


011300 


012767 


011310 


166510 




U A U 

My V 


Jrf B U Ol 1 D OA 


lotT 0** KtSTAnT 


011306 


^ n fi n n Hi 








MAUI 






011310 


012767 


011272 


166506 


PWRUPJ 


MOV 


#PWR0N,24 


1 RESET POWER FAIL VECTOR 


011316 


012706 


001000 






MOV 


#1000iX6 




011322 


012767 


177324 


167554 




MOV 


#"300, (WORK 


ISET UP TWENTY SECOND TIMER 


011330 


000005 






XTIMCNTI 


RESET 






011332 


005267 


167546 






INC 


WORK 


1*1 TIMER 


011336 


001374 








BNC 


XTIMCNT 


J TWO SECONDS NOT UP GO WAIT 


011340 


000720 








BR 


PWRFL 


IGO CHECK DISK 



I 



J 
I 
1 

IROUTINE TO WRITE THE COMPLETE DISK 
IWITH 125252 PATTERN 

J WRITE CHECK AND REPORT ERRORS IF THEY 
lOCCUR 











{REPORT 


"OK" AT 


COMPLETION 




011342 


052777 


0e>0400 


167444 


POWFALI 


BIS 


#BIT8i<iOCS 


iCLEAR THE DISK 


011350 


011667 


167526 




MOV 


(6) ipASSC 




011354 


012706 


001000 






MOV 


#1000iX6 


ISET UP PATTERN 


011360 


1'J12767 


00002^ 


167466 




MOV 


#20iPATNU 


011366 


t)05^^67 


167460 






CLR 


DMA 




011372 


005.^67 


167452 






CLR 


TRACK 




011376 


012767 


00200li9 


16746S3 




MOV 


«2000f SWrDCT 


ISETUP WORD COUNT 


011404 


016767 


167454 


167434 




MOV 


SWRDCT,WRDCT 




011412 


004567 


175772 






J8R 


«5,PaSEL 


JGENERATE DATA BUFFER 


311416 


012767 


013534 


167432 




MOV 


#OUTBUr#BUF 


ISET UP CURRENT ADDRESS 


011424 


012767 


011342 


167446 




MOV 


#powfal#hrder 




011432 


104503 






WRDNWI 


WRITE 


•^100 


ICHECK ON HOW TO WAIT 


011434 


IJ32777 


0L11000 


167336 




BIT 


#BIT9»»SR 


011442 


001'i02 








BNE 


,*i 




011444 


t:0iit:i04 








lOT 




»BACKGROUNO TEST 


011446 


000404 








BR 


.*12 

PRIORlTYi»CSR 




011450 


016777 


167364 


167324 




MOV 




011456 


000:^01 








WAIT 






011460 


104507 








WRCHECK 


♦ 100 




011462 


032777 


011000 


167310 




BIT 


#BIT9i»SR 


I 


011470 


001102 








BNE 


. *6 




011472 


^! ki 4 








lOT 






0ll47'1 


000404 








BR 


.♦12 

PRIORITY, •CSR 




011476 


J16777 


167336 


167276 




MOV 




011504 


1100301 








WAIT 




JSET UP NEW DISK BUFFER 


011506 


004767 


175324 






JSR 


X7,DISBUF 


311512 


y00747 






BR 


WRONW 


JWRITE NEW BUFFER 


111514 


104''01 








EMT 


*1 




011516 


013257 








OK 


9PASSC 




011523 


kJ0ai77 


167356 






JMP 
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011524 
011532 



011534 
011542 



011544 
011552 



011554 
011562 



011564 
011572 



011574 
011600 
011602 
011604 



017777 
000774 



017777 
000774 



017777 
000774 



017777 
000774 



017777 
000774 



017700 

000^''0& 
t?00':i05 
000773 



167250 167264 



167240 167256 



167230 167250 



167210 167234 



I6723ii^ 



IROUTINE TO ALLOW THE OPERATOR TO SET BITS 
I IN THI I/O REGISTERS VIA THE SWITCH REGISTER 
J 



167220 167242 SELOAEI 



IWORD COUNT REGISTER 
SELWCll MOV »SRi(?WC 
BR SELWC 

J 

ICURRENT AQDRESS REGISTER 
SELCMAI MOV »SR#»CmA 
BR SELCMA 

I 

JOISK ADDRESS REGISTER 

SELDARt MOV 9SR|90AR 

BR SELDAR 
i 

)DISK ADDRESS EXT AND ERROR REGISTER 



IMOV SR INTO WORD COUNT REG 



IMOV SR INTO CURRENT ADOR REG 



IMOV SR INTO DISK ADOR REG 



MOV 
BR 



»SR|90AE 

seldae 



I 

iQATA Buffer register 

SELDBRI MOV 9SR«»0BR 
BR SELDBR 

I 
I 

ILOOK AHEAD REGISTER 
MOVLKI MOV l»AOS,X0 

RESET 

RESET 

BR MOVLK 

I 
J 

IDISK CONTROL STATUS REGISTER 



IMOV SR INTO DISK AODR EXT REG 



I MOV SR INTO DATA BUFFER 



IMOVE LOOK AHEAD 



UNTO REGISTER 



011606 


?12777 


000340 


167166 


SELDCSI 


MOV 


#340i*CSR 


iLOCK UP Interrupts 


011614 


012777 


177777 


167174 




MOV 


#177777 i«iWC 


ISET WORD COUNT «1 WORD 


011622 


012777 


013534 


167170 




MOV 


#OUTByFi*CMA 


ISET UP CURRENT ADDRESS 


011630 


017777 


167144 


167156 




MOV 


<>SR>90CS 


IMOV SJR INTO CONTROL REG 


011636 


W32777 


030001 


167150 




BIT 


#BlT0i*DCS 


US FUNCTION BITS SET 


011644 


001760 








BE<3 


SELDCS 


IFUNCTION BITS NOT SET 


011646 


105777 


167142 




DKBUSYI 


TSTB 


»OCS 


ITEST FOR DISK NOT READY 


011652 


100375 








BPL 


DKBUSY 


lOISK STILL READY 


011654 


000754 








BR 


SELDCS 


IDISK NOT BUSY SELECT NEW CR 
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011656 


052777 


0"0400 


167130 


011664 


k3l7767 


167110 


167214 


011672 


016767 


167210 


167204 


011700 


/;42767 


176000 


167176 


011706 


006r6 7 


167172 




011712 


k;06"^67 


167166 




?ill7l6 


!;'06'''6 7 


167162 




011722 


006^/67 


167156 




011726 


006"'67 


167152 




011732 


L16777 


167146 


167064 


011740 


017767 


167034 


167136 


011746 


000367 


167132 




011752 


006167 


167126 




011756 


006167 


167122 




011762 


006167 


167116 




011766 


042767 


0/^3777 


167110 


011774 


01677/ 


167104 


167020 


012002 


H12777 


015534 


167010 


012010 


012777 


177777 


167000 


012016 


052777 


0,^0005 


166770 


012024 


105777 


166764 




012030 


100375 






012032 


026777 


167050 


166740 


012040 


f'0l306 






012042 


000773 
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I 

ITHIS ROUTINE ENABLES THE OPERATOR TO SELECT A TRACK STATICLY 

ITHE ROUTINE DOES A ONE WORD READ TO SELECT THE TRACK 
ITHE OPERATOR MAY CHANCE THE SWITCH REGISTER AT ANY TIME 



ISR6-0 


EQUALS 


THE TRACK NUMBER 




ISR9-7 


EQUALS 


THE DISK NUMBER 




1 

STAMPI 


BIS 


#BITei0DCS 






MOV 


0SR1WORKI 


JFETCH SR 




MOV 


WORKliWORK 






BIC 


fifl76000iWORK 


IMASK THE TRACK AND DISK NO, 




ROR 


WORK 






ROR 


WORK 






ROR 


WORK 






ROR 


WORK 






ROR 


WORK 






MOV 


WORK,«OAE 


JDISK EXT, ADDR. REG, LOADED 




MOV 


9SRiW0RK 






SWAB 


WORK 






ROL 


WORK 






ROL 


WORK 






ROL 


WORK 






BIC 


#3777iW0RK 






MOV 


WORK,»DAR 


JDISK ADDRESS REG LOADED 




MOV 


#INBUF»*CMA 


ILOAD CURRENT ADDRESS 




MOV 


#177777, giWC 


JLOAD WORD COUNT 




BIS 


l!l5|90CS 


)G0 AND READ 


CTBUSYI 


tstb 


• DCS 


ITEST FOR CONTROL NOT READY 




BPL 


CTBUSY 


IWAIT FOR CONTROL NOT READY 


SRCHG: 


CMP 


W0RK1#»SR 






BNE 


STAMP 


)SR HAS CHANGED 




BR 


SRCHG 


JSR HAS NOT CHANGED 
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H12044 
012050 
012052 
012054 
012056 

012062 
012064 
012066 
012070 

0l2'?72 
012074 

012076 
012100 
012102 



012104 
012110 
012112 
012114 
012116 
012122 
012124 
012126 
012130 
012134 
012136 
012140 
1412142 
012144 
012146 
012150 
012152 
012154 
012156 



J04567 
'J01104 
!'.13152 

b04567 

001^^66 
012740 

!jat.i.--0vJ 
10400V1 

i'12736 
J1274W 
v:il3152 
177777 
000205 



i<t04567 
^?^?1104 
tU3l52 

004567 
001106 
.113167 
'/,00'^06 
00456/ 
''!)01i''66 
■.:".12740 
/00i/i03 
1 SI 4 
012736 
',112740 
013152 
013167 
177777 
000205 



012160 ^1160« 

012162 022740 

012166 001^56 

012170 000400 



0^0306 



0;'0274 



I 

JROUTINE TO REPORT ERROR COUNT AND CONTENTS OF ONE REGISTER 
I 



STAERJ 



JSR 
WORK 
MES10 
6 

JSR 

ERCOUNT 
HED5 

3 

EMT 

MED5A 

HED5 

MES10 

^1 

RTS 



%5,C0NV 



X5,C0NV 



X5 



ICONVERT OCTAL TO ASCII 
IDATA TO BE CONVERTED 
lAODRESS OF MESSAGE 

JCONVERT OCTAL To ASCII 
lERROR COUNT TO BE CONVERTED 
JAOORESS OF MESSAGE 

JREPORT MESSAGE 



jexit Routine 



ROUTINE TO REPORT ERROR COUNT AND THE CONTENTS OF TWO REGISTERS 



.'0246 



0'J0234 



01)0222 



STAERXI JSR 
WORK 



MES10 
6 

JSR 
WORK! 
MES10A 
6 

JSR 

ERCOUNT 
NED 5 
3 

EMT 
HED5A 
HED5 
MES10 

MES10A 

-1 

RTS 



%5,C0NV 



%5,C0NV 



%5,C0NV 



'•■0 



•/.9 



ICONVERT OCTAL TO ASCII 
IDATA TO BE CONVERTED 
lAODRESS OF MESSAGE 

JCONVERT OCTAL TO ASCII 
iDATA TO BE CONVERT 
JADDRESS OF MESSAGE 

JCONVERT OCTAL TO ASCII 
JERROR COUNT TO BE CONVERTED 
I ADDRESS OF MESSAGE 

JREPORT MESSAGE 



lEXIT ROUTINE 



l^M00l 



I 
I 

JROUTINE TO DECODE EmT CALLS 

JEMT*1«TYPE ONE LINE OF TEXT 

IEMT*0"TYPE A SERIES OF LINES 
EMTRP: MOV (6),X0 

CMP #EMT*li-(0) 

BNE TYPS 

BR TYP 



JWAS THE CALL EMt*3. 

INOI TYPE A SERIES OF LINES OF TEXT 
JYES TYPE ONE LINE OF TEX? 
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JSUBROUTINE TO 


OUTPUT ASCII 


MESSAGE ON TEUETYPI P«INTtR| 


012172 


011600 






TYPI 


MOV 


(IX6|XI9 


IGET ADDRESS THAT CONTAINS MESSAGE ADDRESS 


012174 


062716 


'!) £ 






ADD 


#2|SiX6 


ISET UP EXIT 1 


012200 


1 1 








MOV 




lAODRESS OF MESSAGE TO % 


012202 


112 '67 


030114 




TYPAI 


MOVB 


(0>*,tYPOAT 


JGET CHARACTER 


012206 


122767 


01^0100 


000106 




CMPB 


#100,TYPDAT 


J CHECK FOR CHARACTER 


012214 


iJ 1 1 








BNE 


TYPC 


ICRANCH IF NOT "9", 


012216 


ti00'^02 








RTl 




JTERMINATOR CHAR.' DONE, EXIT, 


012220 


122767 


0'^0045 


000074 


TYPCI 


CMPB 


#49iTYPDAT 


1 CHECK FOR "X"i 


012226 


001422 








BEQ 


TYPF 


JBRANCH IF "X"i 


012230 


122767 


0'20042 


000064 




CMPB 


#42iTYPDaT 


INOT "X", CHECK FOR 


012236 


001423 








BEQ 


TYPG 


IBRANCH IF 


012240 


004767 


0'^0002 






JSR 


X7,TYP0 


ITYPE CHAR IN TYpOAT 


012244 


000756 








8R 


TYPA 




012246 


03277/ 


040000 


166524 


TYPOl 


BIT 


#BIT1*»»SR 




?I12254 


001^06 








BNE 


TYEXIT 




012256 


116777 


000040 


166520 




MOVB 


TYPDAT,*TPB 


JOUTPUT CHARACTER TO PRINTER 


012264 


105777 


166520 






TSTB 


(?TPS 


JWAIT FOR DONE F|,AG| 


312270 


100375 








BPU 


,-4 




012272 


M00207 






TYEXITl 


RTS 


X7 


lEXlT 


0l2?74 


112767 


0^^0015 


000020 


TYPF! 


MOVB 


#l9iTYpDAT 


IMOVE CARRIAGE RETURN CODE TO TYPDAT 


012302 


004767 


177740 






JSR 


X7|TYP0 


JGO TYPE CHARi 


012306 


112767 


0:r'i00l2 


000006 


TYPGI 


MOVB 


#12,tYPDAT 


IMOVE UF CODE TO TYPDAT, 


012314 


(J04767 


177726 






JSR 


X7,TYP0 


JGO TYPE CHARi 


012320 


00073^' 








BR 


TYPA 




012322 


000l:j0W 






TYPDATI 

















isubroutine to 


OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 


012324 


011600 






TYPSI 


MOV 


9X6f X0 


IGET ADDRESS THAT CONTAINS MESSAGE ADDRESS 


012326 


062716 


0''0002 






ADO 


#2,9X6 


/UPDATE TO NEXT MESSAGE ADDRESS 


012332 


tiil'i67 


0';00i4 






MOV 


*X0,TYpSB 


lADDRESS OP MESSAGE TO TYPSB 


012336 


022767 


177777 


000006 




CMP 


#-1iTYPSB 


ICHECK FOR TERMINATOR 


012344 


001 '101 








BNE 


TYPSA 


JBRANCH IF NOT TERMINATOR. 


012346 


000 >502 








RTI 




JTERMINATOR, EXIT 


012350 


104001 






TYPSAI 


EMT 


*1 


ICALL ON TYP SUB TO TYPE MESSAGE 


012352 


1.100'.) 00 






TYPSBI 







lADDRESS OF MESSAGE GOES HERE 


012354 


H00763 






J 
J 


BR 


TYPS 


ICO PROCESS NEXT MESSAGE 










) 
J 

JOCTAL 


TO ASCII 


CONVERT ROUTINE 










Ienter 


ROUTINE 


AS roLiows 












J JSRX5, 


CONV 














JAODR#« 


ADDRESS 


OF NUMBER TO 


BE CONVERTED 



012356 
^112362 
:^12364 
012366 



lADDR ByTE«LSB OF WHERE ASCII IS GOING 
I ASCI I#. THE NUMBER OF ASCII CHAR. TO BE CONVERTED 
I 

I 



131356/ 
fcl250l 
v;12502 
y6fc'.201 



0'.10054 



CONVI 



MOV 
MOV 
MOV 
ADO 



•(5}*iACNVX 
(5)+, XI 
(5)*,X2 
X2|X1 



JVAUUE OF « TO BE CONVERTED 

lASCII ADDR 

J# OF ASCII CHAR 



PALXll 


V003 


29-OCT. 


70 


0111 


PAGE 


36 


012370 


1 7 ij 


fit r^, fll n j4 U 




A 1^ Vi hi f 

ACVN 1 


M n u 
MOV 


A i*l kl 11 u . V *Y 

ACNVX 1 '»<5 


012371 


042703 








BIC 


#177770, %3 


012400 


062703 


0^10060 






ADO 


#60 t X3 


012404 


110341 








MOVb 


%3|"(3,} 


012406 


^42767 


000007 


000022 




BIC 


#7| ACNVX 


012414 


006067 


000016 






ROR 


ACNVX 


012420 


006067 


000012 






RQR 


ACNVX 


012424 


00606 7 


01,30006 






RQR 


ACNVX 


012430 


005302 








DEC 


%2 


012432 


001356 








BNE 


ACVN 


012434 


00020? 








RTS 


X5 


012436 


000000 






ACNVXS 
1 















1 

IROUTINE 


TO 


HANDLE KEYBOARD 










IROUTINE 


ACCEPTS NUM. OR AUP 


012440 


012767 




/H (H /V m a Jl 

000204 


NOCHA f 


MOV 


#40,TSTCH 


012446 


000403 








BR 


TYST 


012450 


012767 


000100 


000174 


ALPHA II 


MOV 


#100|TSTCH 


012456 


012777 


0^0340 


166316 


TYST 1 


MOV 


#340,»CSR 


012464 


005vj6 7 


ti 1 6 






CLR 


TEXBU^ 


012470 


105777 


166316 




TSTFL6 1 


TSTB 


l>TKS 


012474 


100375 








BPL 


tstflg 


012476 


017777 


166304 


166300 




MOV 


»tkb#»tpb 


012504 


105777 


166300 






TSTB 


*tps 


012510 


.100375 








BPU 


, »4 


012512 


022777 


0f'0377 


166266 




CMP 


#377,»TKB 


012520 










BNE 


CKCH 


012522 


1040 01 








EMT 


♦1 


012524 


013150 








MES8 




012526 


042767 




000114 




BIC 


#7,TEXBUr 


012534 


006067 


k' 1 1 






ROR 


TEXBUP 


012540 


006(^67 


/i? 1 4 






ROR 


TEXBUF 


312544 


006'"67 


''0100 






RQR 


TEXBUP 


012550 


000747 








BR 


tstflg 


01255? 


022777 


0y02i5 


166226 


CKCH I 


CMP 


#215,*TKB 


012560 


001^01 








BNE 


, *4 


012562 


000207 








RTS 


%7 


012564 


036777 


000062 


166214 




BIT 


TSTCHi»TKB 


01257? 


001 103 








BNE 


CHOK 


(512574 


104 0l 








EMT 


♦1 


012576 


013146 








MES7 




012600 


000733 








BR 


tstflg 


012602 


1 7 7 6 7 


•4 ^ iL. n I'll M 


«l A ^ ^ "7 ^ 
I66Z/5 


CHOK 1 


MOV 


•TKBiWORK 


012610 


wi42767 


177770 


166266 




BIC 


#177770#WORK 


"^1261^ 


,i d (J O 4 1 








cue 




012620 


006167 


0.J0024 






ROL 


TEXBUF 


312624 


03k. 241 








CLC 




312626 


e'06167 


0/'00l6 






ROL 


TEXBUF 


012632 


000241 








CLC 




012634 


i.^06167 


060010 






ROL 


TEXBUF 


012640 


066767 


166240 


000002 




ADO 


WORK,T|XBUF 



JISOLATE LEAST SIGNIFICANT OCTAL# 
JSET UP ASCII* 
ISTORE ASCII CHAR 

IROTATE OCTAL# 



I"! FROM ASCII CHAR COUNT 

JEXIT # CONVERTED 
IWORK REGISTER 



ilVERSATlON 
CHARACTERS 

ISET UP FOR NUM, QHARi 

J SET UP FOR ALPHA CHAR 
ILQCK UP INTERRUPTS 
ICLEAR TEXT BUFFER REC 
ICHECK FOR FLAG 
> 

ICHARACTER IN BUFFER 
»ECHO CHARACTER 

ICHECK FOR RUB-OUT 
lEXIT IF NOT RUB,.OUT 

IREPORT RUB"OUT ACKNOWLEDGED 



JGO WAIT FOR NEW CHARi 
JCHECK FOR CARRIAGE RETURN 

lEXIT DELIMITER TYPED 

JREPORT QUESTION MARK 
IWAIT FOR CORRECT CHAR. 



JADD CHARACTER 



PALXII V003 29-OCT-70 
gl2646 



0111 PAGE 36"1 

BR TSTFlG JWAIT FOR NEW CHARACTER 



PAL'xH V003 29-OCT-70 



0111 



PACE 37 



012650 000001^ 
012652 ^!0H;',0k5 



012654 
(^12655 
012656 
P)12657 
PI12660 
012661 
012662 
012663 
(?I12664 
C112665 
012666 



01265^ 
49 
104 
101 
124 
101 
04 
10» 
122 
122 
(^40 
10^-' 



TEXBUFI 
TSTCHI 



ERROR MESSAGE HEADERS 



HEDll 



.EVEN 

.ASCII /XDATA err »/ 



012667 
012670 
012671 
012672 
012673 
012674 
012675 
012676 
012677 
012700 
012701 
012702 
012703 



045 
123 
124 
101 
124 
129 
123 
C140 

105 
122 
122 

040 
100 



I 
I 

HED2I .ASCII /XSTaTUS ERR •/ 



012704 
012705 
012706 
012707 
012710 
012711 
012712 
012713 
012714 
012715 
012716 
012717 



045 
105 
130 
124 
122 
101 
4fc' 
102 
113 
123 
040 
10^ 



I 

HED3I .ASCII /XEXTRA BKS */ 



J 



Will PAGE 37-1 



012720 


P45 


012721 


104 


012722 


113 


012723 


040 


012724 


101 


012725 


104 


012726 


104 


012727 


122 


012730 


040 


012731 


105 


01273Z 


122 


012733 


122 


012734 


3 40 


012735 


100 


012736 


045 


012737 




012740 


^40 


012741 


'MW 


012742 


'o40 


012743 


04 


012744 


105 


012745 


122 


012746 


122 


012747 


^140 


012750 


103 


012751 


110 


012752 


124 


012753 


i^40 


012754 


100 


312755 


'/•45 


012756 


122 


012757 


101 


012760 


116 


S112761 


105 


012762 


130 


;?I12763 


34 W 


012764 


105 


012765 


122 


012766 


122 


012767 


'A A ? 


rn277t^ 


10H 



HED4I .ASCII /XOK ADOR ERR •/ 



I 
I 

HED5AI .ASCII /%•/ 



J 
I 

HED5I .ASCII / 



ERR CNT •/ 



I 

I 

HED6I 



ASCII /xranEx err 



I 
I 

IMESSACE trailers 
I 



PALXll V003 29-OCT"70 0!li 
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012771 
012772 
012773 
012774 
012775 
012776 
012777 
013000 
013001 
013002 
013003 
013004 



040 
040 
04t^ 
040 
040 
1^40 
04t> 
104 
101 
122 

:??40 
100 



I 

MESII .ASCII / 



DAR •/ 



013005 
013006 
013007 
013010 
013011 
013012 
013013 
013014 



040 
'•:40 
040 
104 
101 
105 
04 

100 



I 
I 
I 

MESIAI .ASCII / DAE 



013015 
013016 
013017 
013020 
013021 
013022 
013023 
013024 
013025 
013026 
013027 
1H3C130 



^.40 
040 

i''4^ 

P'40 
040 
104 
103 
123 
■■^40 
100 



I 
I 

I 

MES2I .ASCII / 



DCS 9/ 



013031 
013032 
013033 
013031 
013035 
013036 
013037 
013040 
313041 
013042 
013043 
013044 



r/140 

■-" 4 
5'4?t 
4 k!! 
040 
040 

r40 

122 
104 

040 
105 



I 

MES2AS .ASCII / 



HRD ERR*/ 
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0111 PAGE 37-3 



013045 
013046 
013047 



122 
122 

100 



H13050 
.313051 
013052 
(313053 
f^l3ei54 
':n3M55 
01305^ 
013057 
013060 
^13(^61 
313062 
013063 
^1306'? 



!' 4 ^ 

«4P 
127 
122 
104 

1^4 n 
103 
116 
124 

10'^ 



I 

MES3I .ASCII / 



013065 
313066 
013067 
!n3070 

1^3072 
01 3073 
013074 
1^13075 
01307-^ 
0113077 
013100 
013101 
^13102 
013103 
013104 
013105 



w 4 III 
■ 4v^ 
/4t' 

!M0 

iM0 
12/ 
122 
104 

■7,40 

101 
104 
104 
122 
56 
100 



; 

} 
I 

MES4I .ASCII / 



013106 
013107 
013110 
013111 
013112 
013113 
013114 
013115 
013116 
013117 
013120 



■7140 
'A 4 

r. 4 
40 
040 
040 
107 
104 
^140 
104 



) 
I 
I 

MESS I 



.ASCI I 



WRD CNT*/ 



WRD ADOR,*/ 



GD DATA »/ 



PALXll V303 29-OCT-70 0111 PAGE 37-4 

013121 101 

013122 124 
(113123 101 

;n3i24 !!40 

013125 100 



I 
> 
I 



PALyil V003 29"OCT-70 



0111 PAGE 38 



013126 
013127 
P)13130 
013131 
013132 
5)13133 
013134 
013135 
013136 
013137 
013140 
013141 
013142 
013143 
W13144 
013145 



^40 

[140 
W4 
••"1 4 y 
„i 4 
1 4 
(M0 
102 
104 
040 
104 
101 
124 

101 

040 
100 



MES6I 



.ASCII / 



BD DATA 



0I3I46 
013147 



077 
100 



I 
) 
I 

M0IMES7J 



.ASCII 



013150 
013151 



057 
100 



I 
J 
J 
J 

MEsai 



.ASCII •/»• 



013152 
013153 
013154 
013155 
013156 
013157 
013160 
P113161 
013162 
013163 
013164 
013165 
:^13l6'-> 



^140 
i)4k) 
:^40 
(1 4 
''40 

04!^ 
M 4 ',1 

127 
122 
104 
^61 

'i4 
100 



J 
I 

MES10I .ASCII / 



WRDl »/ 



013167 
013170 
^n3l71 
113172 
■113173 
ril3l74 



,) 4 i/' 
;i4 

■ 4 
140 

'•.40 



J 

MES10AI .ASCII / 



WRD2 •/ 
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013175 
013176 
013177 
013200 
013?01 
013202 
013203 



127 
122 
104 
062 

040 
100 



013204 
013205 
013206 
013207 
0l3?lt' 
013211 
013212 
013213 
013214 
013215 



045 
125 
116 
111 
124 
04W 
116 
117 
^56 
100 



I 

MESm .ASCII /XUNIT NOil»/ 



013216 
013217 

013220 



04^^ 
100 



I 
I 

MES12! .ASCII / 



013221 
013222 
013223 
013224 
013225 
013226 
013227 
013230 



04iO 
CI 4 
122 
105 
101 
104 
040 
100 



J 

I 

MES13I .ASCII / READ */ 



013231 
013232 
013233 
013234 
013235 
013236 
013237 
013240 
013241 
013242 
013243 
013244 
013245 
013246 
013247 
013250 



'45 
104 
120 
125 
040 
102 
114 
107 
122 
116 
104 
040 
124 
111 
115 
105 



I 

TIMOl .ASCII /XCPU BkGRND TIMED OUT*/ 



pALxii V0a3 



29-OCT-70 



0111 



PACE 38-2 



013251 

f?13?52 
013253 
013254 
013255 
(?il3256 



104 

114 
117 
12S 
124 
100 



kJ13257 
013260 
013261 
013262 
013263 



•M5 
117 
114 

!'41 

100 



J 

OKI 



•ASCII /XOK!»/ 



JCONVERSATION TEXT 
I 



013264 
013265 
013266 
013267 
013270 
013271 
013272 
013273 
013274 
013275 
.113276 
013277 
•113300 
013301 
013302 
fil3303 
013304 
013305 



''49 
104 
101 
124 
101 

124 

105 
123 
124 

■/i 4 
117 
116 
114 
131 
'77 
.•7141-1 

100 



J 

CONll 



.ASCII /XDATA TEST ONLY? »/ 



0I3306 
313307 

013310 
013311 
013312 
013313 
013314 
013315 
013316 
013317 
013320 
013321 
013322 



■'4 5 
115 
125 
114 
124 

111 

^140 

104 
113 
64 W 
115 
117 
104 



I 
J 
J 

C0N2! .ASCII /%MULTI DK MODE?*/ 
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013323 
013324 
1^13325 



013326 
(113327 
013330 
013331 
(?13332 
013333 
013334 
313335 
013336 
kU3337 
P11334PI 
•^13341 
013342 
013343 
-^13344 
H13345 
013346 
'313347 
013350 
013351 
013352 
013353 
013354 
013355 
013756 



105 

100 



45> 
043 
040 
117 
106 

104 
113 
12^ 

1:! 4 
61 

1 ■ 4 
124 
117 

7' 40 

-'61 
61' 
'-Ml'' 
117 
103 
124 
101 
114 
;i77 

10^ 



I 
i 

C0N3i 



.ASCII /X# OF OKS 1 TO 10 OCTAL?*/ 



0I3357 
013360 
013361 
013362 
013363 
013364 
013365 
013366 
013367 



•■'45 
10s 
130 
^56 

r-1 4 

104 
Hi 

.'77 
100 



I 

C0N4I 



.ASCII /XEX, DK?»/ 



013370 
013371 
013372 
013373 
013374 
013375 
013376 
013377 
313400 



117 
120 
124 

040 
127 
122 
104 

>')4n 



I 

C0N5! 



.ASCII /«OPT WRO CNT? 9/ 



PALXll V003 29-OCT-70 
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013401 103 

013402 116 

013403 124 

013404 077 
C113405 5^40 
013406 100 



J 
J 

013407 045 C0N6I .ASCII /XIENGTH (1 TO 1000)?*/ 

013410 114 

013411 105 

013412 116 

013413 107 

013414 124 
313415 lit 

013416 ^'40 

013417 05<? 

013420 o^X 

013421 340 

013422 124 

013423 117 

013424 040 

013425 !'!61 

013426 J6k5 

013427 ?60 

013430 060 

013431 ';^51 

013432 v^77 

013433 100 



0I3434 
013435 
013436 
013437 
013440 
013441 
013442 
013443 
013444 
013445 
013446 



045 
127 
122 
104 

04 W 

101 
104 
104 
122 

?77 

100 



I 
I 

C0N7I 



.ASCII /XWRD ADDR?»/ 



.■U3447 
013450 
013451 
013452 
013453 
013454 
013455 
013456 



y4£> 

117 

120 
124 

;'56 
r 4 
104 
101 



I 

C0N8I 



.ASCII /XOPTi DATA PAT, 
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013457 124 

0l346t^ 101 

013461 PI40 

013462 120 

013463 101 

013464 124 

013465 056 

013466 340 

013467 043 

013470 !^77 

013471 100 



013472 
013473 
013474 
013475 
013476 
013477 
013500 
013501 



^■145 
127 
122 
111 
124 

105 

r'^77 
100 



I 
I 

C0N9I , ASCII /%WRlTE?«i/' 



313502 
013503 
013504 
013505 
013506 
013507 
013510 
013511 
013512 
013513 
013514 
013515 
01351^ 
013517 



1^5 
127 
122 
111 
124 
ICS 
04lfi 
103 
110 
105 
103 
113 
77 
10? 



I 
I 

CON10I .ASCII /XWRITI CHECK?»/ 



013520 
013521 
013522 
013523 
013524 
013525 
013526 



-45 
122 
105 
101 
104 
'77 
100 



I 

CONllf .ASCII /XREaO?*/ 



I 
I 



013527 



345 



I 

ENOl .ASCII /XCND»/ 
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013530 105 

013531 116 

013532 104 

013533 10'?' 



013534 



.EVEN 
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J 
I 
J 
I 







.MACR 


OUTPUT 


N 















J OUTPUT 


DATA 


WORD 

" V n w 


N 


(OATA URTTTEW) 






lENDM 














00ldki00 


N«0 














001;' 00 


OUTBUFI .REPT 
OUTPUT 
N«N*1 
• ENdR 

1 u u n 

OUTPUT 


1000 

\N 
\N 










313534 


fc! 16 'A 
0av-lt 01 




NsN + 1 
OUTPUT 


JOUTPUT 
\N 


DATA 


WORD 





(DATA WRITTEN) 


(^13536 






N^N't'l 
OUTPUT 


lOUTPUT 
SN 


DATA 


WORD 


1 


(DATA WRITTEN) 


013540 


1'; : .' 3 




NsN^l 
OUTPUT 


;OUTPUT 
\N 


DATA 


WORD 


2 


(DATA WRITTEN) 


013542 


■0^1 
u 2' ■ ' fc) 4 




NsN + 1 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


3 


(DATA WRITTEN) 


013544 






N^N^l 
OUTPUT 


JOUTPUT 
NN 


DATA 


WORD 


4 


(OATA WRITTEN) 


013546 


w A 
1-10:5 




NbN4>1 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


5 


(DATA WRITTEN) 


013550 


|/100''0t'^ 

B ly 1 7 




NaN-1.1 
OUTPUT 


JOUTPUT 
\N 


DATA 


WORD 


6 


(DATA WRITTEN) 


013552 


ki00i'i0l<'' 
fe! 1 




NbN-»'1 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


7 


(OATA WRITTEN) 


013554 


r! 
e '■•1 1 1 




NsN'^l 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


10 


(DATA WRITTEN) 


013556 


00U;50W 
1,100 '12 




NsN+1 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


11 


(DATA WRITTEN) 


013560 


00030y 

000K13 




NbN+I 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


12 


(OATA WRITTEN) 


013562 


C'j00000 
000014 




N = N*1 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


13 


(PATA WRITTEN) 


013564 


0000014 
000015 




NaN*l 
OUTPUT 


lOUTPUT 
\N 


DATA 


WORD 


14 


(DATA WRITTEN) 


013566 


00000a 





lOUTPUT 


DATA 


WORD 


15 


(OATA WRITTEN) 



P A i V i 1 

" " L A J> ^ 


V003 29"OCT"70 


0111 


page; 39 


X 














000016 




NbN4<1 




















ni 1 To II T 


V M 












W X vJ 3 / If 


i/5 9' 







1 U w 1 P V 1 


nATA 


WORD 




(DATA 


WR 1 TTFN ) 




00001 7 




N'N^l 




















OUTPUT 


\ IN 












lO X O 3 / £ 


n 61 (/I i7 U 
ly W W 1-.' It/ ^' 







1 OUTPUT 

1 W W ' P 1 


DATA 


WORD 


17 


(DATA 
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